From: Anton Berezin <tobez@tobez.org>
Date: Tue, 21 Jul 1998 21:46:45 +0000 (+0200)
Subject: t/op/eval.t test for eval & scoping of lexicals
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=fc360e464b2c0ad9f690711276bbd836ab5c39af;p=p5sagit%2Fp5-mst-13.2.git

t/op/eval.t test for eval & scoping of lexicals

	Message-Id: <199807211946.VAA01301@lion.plab.ku.dk>

p4raw-id: //depot/perl@1632
---

diff --git a/t/op/eval.t b/t/op/eval.t
index 02b1045..9368281 100755
--- a/t/op/eval.t
+++ b/t/op/eval.t
@@ -2,7 +2,7 @@
 
 # $RCSfile: eval.t,v $$Revision: 4.1 $$Date: 92/08/07 18:27:48 $
 
-print "1..22\n";
+print "1..23\n";
 
 eval 'print "ok 1\n";';
 
@@ -71,4 +71,11 @@ eval {
   print   $b eq 'S' ? "ok 21\n" : "# $b\nnot ok 21\n";
   eval $a;
   print   $b eq 'V' ? "ok 22\n" : "# $b\nnot ok 22\n";
+
+  $b = 'wrong';
+  $x = sub {
+     my $b = "right";
+     print eval('"$b"') eq $b ? "ok 23\n" : "not ok 23\n";
+  };
+  &$x();
 }