diff options
| author | Tels <nospam-abuse@bloodgate.com> | 2007-09-22 16:27:29 +0200 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2007-09-25 08:56:40 +0000 |
| commit | 0921ee73ba49a35b0e5ee887dcd21e4312b38dba (patch) | |
| tree | 6f8afb1baa23de639e6857a2e64df03a04df1060 /t/op | |
| parent | 5c8a9ad3f4b52f54c611c43f6c8130bd98a59a91 (diff) | |
| download | perl-0921ee73ba49a35b0e5ee887dcd21e4312b38dba.tar.gz | |
Re: [perl #45605] Regexp failure with utf8-flagged string and byte-flagged pattern
Message-Id: <200709221427.30425@bloodgate.com>
p4raw-id: //depot/perl@31961
Diffstat (limited to 't/op')
| -rwxr-xr-x | t/op/pat.t | 10 |
1 files changed, 9 insertions, 1 deletions
diff --git a/t/op/pat.t b/t/op/pat.t index 00d00e7409..2697157195 100755 --- a/t/op/pat.t +++ b/t/op/pat.t @@ -4478,6 +4478,14 @@ sub kt } iseq(length($str),"0","Trie scope error, string should be empty"); } +{ +# [perl #45605] Regexp failure with utf8-flagged and byte-flagged string + + my $utf_8 = "\xd6schel"; + utf8::upgrade($utf_8); + $utf_8 =~ m{(\xd6|Ö)schel}; + iseq($1,"\xd6","#45605"); +} # Test counter is at bottom of file. Put new tests above here. #------------------------------------------------------------------- @@ -4537,6 +4545,6 @@ ok($@=~/\QSequence \k... not terminated in regex;\E/); iseq(0+$::test,$::TestCount,"Got the right number of tests!"); # Don't forget to update this! BEGIN { - $::TestCount = 1964; + $::TestCount = 1965; print "1..$::TestCount\n"; } |