diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-06-03 16:30:34 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-06-03 16:30:34 +0000 |
| commit | b318f128c9ad9b063fab23e327dabb8d75800a49 (patch) | |
| tree | db6b976b411baa35b1965a5ccc5913419c53e853 /t | |
| parent | 2f250b7c13466eb9a6f00c598de5659c46a12cab (diff) | |
| download | perl-b318f128c9ad9b063fab23e327dabb8d75800a49.tar.gz | |
Integrate change #10404 from maintperl; eval.t was in pre-10394 mood.
p4raw-link: @10404 on //depot/maint-5.6/perl: 62bda1a5f4287c07607d002738961da56cf9f92c
p4raw-id: //depot/perl@10405
p4raw-integrated: from //depot/maint-5.6/perl@10403 'merge in'
t/op/eval.t (@5902..)
Diffstat (limited to 't')
| -rwxr-xr-x | t/op/eval.t | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/t/op/eval.t b/t/op/eval.t index f4d4be5ab7..42a71e2593 100755 --- a/t/op/eval.t +++ b/t/op/eval.t @@ -99,7 +99,7 @@ do_eval1('print "ok $x\n"'); $x++; do_eval1('eval q[print "ok $x\n"]'); $x++; -do_eval1('sub { eval q[print "ok $x\n"] }->()'); +do_eval1('sub { print "# $x\n"; eval q[print "ok $x\n"] }->()'); $x++; # calls from within eval'' should clone outer lexicals @@ -112,7 +112,7 @@ do_eval2('print "ok $x\n"'); $x++; do_eval2('eval q[print "ok $x\n"]'); $x++; -do_eval2('sub { eval q[print "ok $x\n"] }->()'); +do_eval2('sub { print "# $x\n"; eval q[print "ok $x\n"] }->()'); $x++; EOT |