[perl #129950] Some UTF-8 regular expression matches fail when readfrom file

# New Ticket Created by  Hiroshi Manabe 
# Please include the string:  [perl #129950]
# in the subject line of all future correspondence about this issue. 
# <URL: https://rt.perl.org/Ticket/Display.html?id=129950 >


You can reproduc the bug with the following procedure:
1. perl -CO -e 'print "a\x{e4}";' > foo.txt # aä
2. perl -CI -e 'open IN, "<", "foo.txt"; $_ = <IN>; print m{^a|a\x{e4}$} . "matched\n" : "not matched\n";
Output: not matched

This happenes only when the string is read from a file handle and the second character is in the range of \x{80}-\x{ff}.
Curiously enough, the match succeeds if the regexp is m{^a|a[\x{e3}-\x{e4}]$} or m{^a|a[\x{e4}-\x{e5}]$}, but not if it is m{^a|a[\x{e4}-\x{e4}]$}.

• [perl #129950] Some UTF-8 regular expression matches fail when readfrom file by Tony Cook via RT
• Re: [perl #129950] Some UTF-8 regular expression matches fail whenread from file by Dave Mitchell
• Re: [perl #129950] Some UTF-8 regular expression matches fail whenread from file by demerphq
• Re: [perl #129950] Some UTF-8 regular expression matches fail whenread from file by Dave Mitchell
• Re: [perl #129950] Some UTF-8 regular expression matches fail whenread from file by demerphq
• [perl #129950] Some UTF-8 regular expression matches fail when readfrom file by Hiroshi Manabe
• [perl #129950] Some UTF-8 regular expression matches fail when readfrom file by Dan Collins via RT
• [perl #129950] Some UTF-8 regular expression matches fail when readfrom file by Hiroshi Manabe via RT
• [perl #129950] Some UTF-8 regular expression matches fail when readfrom file by Hiroshi Manabe via RT