From: Hugo van der Sanden <hv@crypt.org>
Date: Mon, 2 Dec 2002 02:23:28 +0000 (+0000)
Subject: #18221 broke t/op/eval.t
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=e8cf733a745ea6ffb715c9b16c2f8ba4ceffb726;p=p5sagit%2Fp5-mst-13.2.git

#18221 broke t/op/eval.t

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

diff --git a/t/op/eval.t b/t/op/eval.t
index 79e219e..41c5ef3 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";
+}