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..)

diff --git a/t/op/eval.t b/t/op/eval.t
index f4d4be5..42a71e2 100755 (executable)
--- 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