diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2003-03-09 10:46:23 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2003-03-09 10:46:23 +0000 |
| commit | c517dc2b8939cf1b60644570194e6918e1629206 (patch) | |
| tree | 638c824bec508ccf363666cd7572ad93f47003e7 /t/op | |
| parent | 6e6a1aefada3f56f44128d62c37dcbbe95fd2795 (diff) | |
| download | perl-c517dc2b8939cf1b60644570194e6918e1629206.tar.gz | |
From Inaba Hiroto: the UTF-8 length cache wasn't
updated when fbm_compile() appended a "\n".
p4raw-id: //depot/perl@18857
Diffstat (limited to 't/op')
| -rwxr-xr-x | t/op/pat.t | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/t/op/pat.t b/t/op/pat.t index fdc4f9b2a1..54f7d144d7 100755 --- a/t/op/pat.t +++ b/t/op/pat.t @@ -6,7 +6,7 @@ $| = 1; -print "1..994\n"; +print "1..995\n"; BEGIN { chdir 't' if -d 't'; @@ -3145,5 +3145,8 @@ ok("bbbbac" =~ /$pattern/ && $1 eq 'a', "[perl #3547]"); "[perl #21411] (??{ .. }) corrupts split's stack") } -# last test 994 +{ + ok("\x{100}\n" =~ /\x{100}\n$/, "UTF8 length cache and fbm_compile"); +} +# last test 995 |