diff options
| author | Hugo van der Sanden <hv@crypt.org> | 2000-10-23 01:47:22 +0100 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2000-10-23 03:43:12 +0000 |
| commit | a1933d9520524187cd6ffbd1408c92d37eba7fe2 (patch) | |
| tree | 6b716d9efb659c4dce5738c23249b48ce99544f2 /t | |
| parent | e35b8f9e3de730f96348d8d0ecac4d41eb9cb37e (diff) | |
| download | perl-a1933d9520524187cd6ffbd1408c92d37eba7fe2.tar.gz | |
Re: [ID 20001021.005] SEGV with regex match
Message-Id: <200010222347.AAA09697@crypt.compulink.co.uk>
p4raw-id: //depot/perl@7407
Diffstat (limited to 't')
| -rwxr-xr-x | t/op/pat.t | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/t/op/pat.t b/t/op/pat.t index f0090865a1..f0cb7dc14d 100755 --- a/t/op/pat.t +++ b/t/op/pat.t @@ -4,7 +4,7 @@ # the format supported by op/regexp.t. If you want to add a test # that does fit that format, add it to op/re_tests, not here. -print "1..223\n"; +print "1..224\n"; BEGIN { chdir 't' if -d 't'; @@ -1084,3 +1084,7 @@ print "not " unless "@space2" eq "spc tab"; print "ok $test\n"; $test++; +# bugid 20001021.005 - this caused a SEGV +print "not " unless undef =~ /^([^\/]*)(.*)$/; +print "ok $test\n"; +$test++; |