diff options
| author | Andreas König <a.koenig@mind.de> | 2002-03-12 01:40:09 +0100 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-03-17 04:23:49 +0000 |
| commit | 6e602e293de56675e46a43a5c73830035f39277b (patch) | |
| tree | 7c6d804e54574e50d1e12c920b59bf748b20b407 /t | |
| parent | 58d76dfdf30230046d41beb912124c3381ef2bc8 (diff) | |
| download | perl-6e602e293de56675e46a43a5c73830035f39277b.tar.gz | |
SEGV in s/// and UTF-8
Message-ID: <m3r8mqad2e.fsf@anima.de>
p4raw-id: //depot/perl@15268
Diffstat (limited to 't')
| -rwxr-xr-x | t/op/pat.t | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/t/op/pat.t b/t/op/pat.t index 4fb3d45e5e..67ca7659ad 100755 --- a/t/op/pat.t +++ b/t/op/pat.t @@ -6,7 +6,7 @@ $| = 1; -print "1..860\n"; +print "1..861\n"; BEGIN { chdir 't' if -d 't'; @@ -2706,3 +2706,10 @@ print "# some Unicode properties\n"; $i++; } } + +{ + print "# SEGV in s/// and UTF-8\n"; + $s = "s#\x{100}" x 4; + $s =~ s/[^\w]/ /g; + print $s eq "s \x{100}" x 4 ? "ok 861\n" : "not ok 861\n"; +} |