diff options
| -rwxr-xr-x | t/op/eval.t | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/t/op/eval.t b/t/op/eval.t index 79e219e97d..41c5ef3c48 100755 --- a/t/op/eval.t +++ b/t/op/eval.t @@ -242,12 +242,6 @@ print $@; eval q{}; print length($@) ? "not ok 46\t# \$\@ = '$@'\n" : "ok 46\n"; } -# [perl #9728] used to dump core -{ - $eval = eval 'sub { eval "sub { %S }" }'; - $eval->({}); - print "ok 47\n"; -} # DAPM Nov-2002. Perl should now capture the full lexical context during # evals. @@ -346,6 +340,12 @@ eval q{ }; fred5(); { my $yyy = 88; my $zzz = 99; fred5(); } -eval q{ my $yyy = 888; my $zzz = 999; fred5(); } +eval q{ my $yyy = 888; my $zzz = 999; fred5(); }; +# [perl #9728] used to dump core +{ + $eval = eval 'sub { eval "sub { %S }" }'; + $eval->({}); + print "ok 78\n"; +} |