in reply to Re^3: Interpreter eval counter out of bounds
in thread Interpreter eval counter out of bounds
#!/opt/perl/bin/perl
use strict;
use warnings;
my $count = 0;
until ($@) {
$count++;
eval 'my $abc = 1; $abc++; ';
unless ($count % 100000) {
print $count . $/;
print q(Expect crash) if $count > 999977609;
}
}
print $@;
This produced:
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re: Bug recreated, you stopped just before the action
by ikegami (Patriarch) on Feb 02, 2011 at 21:40 UTC | |
by andreas1234567 (Vicar) on Feb 03, 2011 at 10:03 UTC |