disclosure: jimt and I are working together, and are collectively stumped by this problem. Here is some sample code, but it doesn't mean anything at all.
my $t0 = new Benchmark;
print 'Doing stuff... ';
..
do a bunch of stuff with, say, DBI
..
my $t1 = new Benchmark;
print 'Done; This took: ' . timestr(timediff($t1, $t0)) . "\n";
As mentioned above, this is an occasional problem, in that, it manifests on occasion. I wish it were a constant and replicable problem.
If we can't find the cause of this problem, is there any way we can get around it? We could have our script send out a "CTRL-C" if we could somehow figure out that.. "well, its been a while and the process should have completed by now." Of course, if we are wrong, and the process is still going on, then we would end up killing the process. Not good.
In other words, this is a serious pain in the arse, and our hope is that someone else has been bitten by it and has found a reason and/or a cure for it.
--
when small people start casting long shadows, it is time to go to bed
|