Change 23645 by [EMAIL PROTECTED] on 2004/12/14 07:28:57
Test patch for already-solved bug #33003,
by Michael G Schwern.
Affected files ...
... //depot/perl/t/op/bop.t#23 edit
Differences ...
==== //depot/perl/t/op/bop.t#23 (xtext) ====
Index: perl/t/op/bop.t
--- perl/t/op/bop.t#22~22193~ Wed Jan 21 13:58:10 2004
+++ perl/t/op/bop.t Mon Dec 13 23:28:57 2004
@@ -14,7 +14,7 @@
# If you find tests are failing, please try adding names to tests to track
# down where the failure is, and supply your new names as a patch.
# (Just-in-time test naming)
-plan tests => 145;
+plan tests => 146;
# numerics
ok ((0xdead & 0xbeef) == 0x9ead);
@@ -321,3 +321,7 @@
ok(utf8::is_utf8($a)); # make sure UTF8 flag is still there
$a = ~$a;
is($a, "\xFF", "~ works with utf-8");
+
+# [rt.perl.org 33003]
+# This would cause a segfault
+is( runperl(prog => '$#a>>=1; print 1'), 1 );
End of Patch.
