From: Michael G. Schwern <schwern@pobox.com>
Date: Wed, 28 Nov 2001 16:37:01 +0000 (-0500)
Subject: (was Re: [ID 20011128.159] Segmentation faulton bad regexp)
X-Git-Tag: accepted/trunk/20130322.191538~29140
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=15a59b2d28abd144de5a2003aa7accfc1140a21d;p=platform%2Fupstream%2Fperl.git

(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
--- 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