Change 18222 by [EMAIL PROTECTED] on 2002/12/02 02:23:28
#18221 broke t/op/eval.t
Affected files ...
.... //depot/perl/t/op/eval.t#23 edit
Differences ...
==== //depot/perl/t/op/eval.t#23 (xtext) ====
Index: perl/t/op/eval.t
--- perl/t/op/eval.t#22~18221~ Sun Dec 1 18:18:19 2002
+++ perl/t/op/eval.t Sun Dec 1 18:23:28 2002
@@ -242,12 +242,6 @@
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 @@
};
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";
+}
End of Patch.
