(was Re: [ID 20011128.159] Segmentation faulton bad regexp)

Message-ID: <20011128163701.H676@blackrider>

p4raw-id: //depot/perl@13353

diff --git a/t/run/kill_perl.t b/t/run/kill_perl.t
index 306a743..6345a79 100644 (file)
--- a/t/run/kill_perl.t
+++ b/t/run/kill_perl.t
@@ -815,3 +815,7 @@ $foo = \-f "blah";
 print "ok" if ref $foo && !$$foo;
 EXPECT
 ok
+######## [ID 20011128.159] 'X' =~ /\X/ segfault in 5.6.1
+print "ok" if 'X' =~ /\X/;
+EXPECT
+ok