projects / platform / upstream / perl.git / commitdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw | patch | inline | side by side (parent: 20274ad)
(was Re: [ID 20011128.159] Segmentation faulton bad regexp)
authorMichael G. Schwern <schwern@pobox.com>
Wed, 28 Nov 2001 16:37:01 +0000 (11:37 -0500)
committerJarkko Hietaniemi <jhi@iki.fi>
Thu, 29 Nov 2001 04:19:40 +0000 (04:19 +0000)
Message-ID: <20011128163701.H676@blackrider>

p4raw-id: //depot/perl@13353

t/run/kill_perl.t patch | blob | history

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
Domain: System / Base;