diff options
| author | Inaba Hiroto <inaba@st.rim.or.jp> | 2002-11-17 04:23:00 +0900 |
|---|---|---|
| committer | hv <hv@crypt.org> | 2002-11-25 03:06:44 +0000 |
| commit | 0e933229fa7586258708edba9d57af3dee7f48c0 (patch) | |
| tree | 9376a7e4197dff4ff548c0e6ee88e374a96feac4 /t | |
| parent | 87baa35a563d45b9921650f6d6957f8ce4f33b49 (diff) | |
| download | perl-0e933229fa7586258708edba9d57af3dee7f48c0.tar.gz | |
UTF8 regexp {n} bug
Message-ID: <3DD61C83.62FF9887@st.rim.or.jp>
p4raw-id: //depot/perl@18179
Diffstat (limited to 't')
| -rwxr-xr-x | t/op/pat.t | 14 |
1 files changed, 12 insertions, 2 deletions
diff --git a/t/op/pat.t b/t/op/pat.t index 6a1d602d53..a6007a6cbd 100755 --- a/t/op/pat.t +++ b/t/op/pat.t @@ -6,7 +6,7 @@ $| = 1; -print "1..941\n"; +print "1..942\n"; BEGIN { chdir 't' if -d 't'; @@ -2995,4 +2995,14 @@ END print "\x{0712}" =~ /\p{Syriac1}/ ? "ok $test\n" : "not ok $test\n"; $test++; print "\x{072F}" =~ /\P{Syriac1}/ ? "ok $test\n" : "not ok $test\n"; $test++; -# last test 940 +{ + # Change #18179: previously failed with "panic: end_shift" + my $s = "\x{100}" x 5; + my $ok = $s =~ /(\x{100}{4})/; + my($ord, $len) = (ord $1, length $1); + print +($ok && $ord == 0x100 && $len == 4) + ? "ok $test\n" : "not ok $test\t# $ok/$ord/$len\n"; + ++$test; +} + +# last test 942 |