From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Sun, 3 Jun 2001 16:30:34 +0000 (+0000)
Subject: Integrate change #10404 from maintperl; eval.t was in pre-10394 mood.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=b318f128c9ad9b063fab23e327dabb8d75800a49;p=p5sagit%2Fp5-mst-13.2.git

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