Change 23646 by [EMAIL PROTECTED] on 2004/12/14 07:41:08
Fix test added in change 23645 with an eval()
Affected files ...
... //depot/perl/t/op/bop.t#24 edit
Differences ...
==== //depot/perl/t/op/bop.t#24 (xtext) ====
Index: perl/t/op/bop.t
--- perl/t/op/bop.t#23~23645~ Mon Dec 13 23:28:57 2004
+++ perl/t/op/bop.t Mon Dec 13 23:41:08 2004
@@ -324,4 +324,4 @@
# [rt.perl.org 33003]
# This would cause a segfault
-is( runperl(prog => '$#a>>=1; print 1'), 1 );
+is( runperl(prog => 'eval q($#a>>=1); print 1'), 1 );
End of Patch.
