| Subject: | function execution fails for some perl versions |
filed on behalf of Ramana Mokkapati <mvr707@yahoo.com>.
code fragment below seems work with with Perl 5.8.0, but NOT
5.6.1.
[SAMPLE]
use Proc::Reliable;
#Proc::Reliable::debug(1);
my $p = Proc::Reliable->new();
$p->num_tries(4);
$p->time_per_try(3);
$p->maxtime(100);
$p->time_btw_tries(1);
($stdout, $stderr, $status, $msg) = $p->run(sub { my
$i = 1; while (1) { print "Hello $i\n"; $i++;
sleep(1); } });
print "==> $stdout\n";
print "==> $stderr\n";
print "==> $status\n";
print "==> $msg\n";
[/SAMPLE]