[Bug 970913] New: perl-5.18: UTF-8-downgraded variables are not properly interpolated in a regular expression

bugzilla at redhat.com bugzilla at redhat.com
Wed Jun 5 08:15:31 UTC 2013


https://bugzilla.redhat.com/show_bug.cgi?id=970913

            Bug ID: 970913
           Summary: perl-5.18: UTF-8-downgraded variables are not properly
                    interpolated in a regular expression
           Product: Fedora
           Version: rawhide
         Component: perl
          Severity: unspecified
          Priority: unspecified
          Assignee: mmaslano at redhat.com
          Reporter: ppisar at redhat.com
        QA Contact: extras-qa at fedoraproject.org
                CC: cweyl at alumni.drew.edu, iarnell at gmail.com,
                    jplesnik at redhat.com, kasal at ucw.cz, lkundrak at v3.sk,
                    mmaslano at redhat.com,
                    perl-devel at lists.fedoraproject.org, ppisar at redhat.com,
                    psabata at redhat.com, rc040203 at freenet.de,
                    tcallawa at redhat.com

$ perl -e 'utf8::upgrade(my $u = "\x{e5}"); utf8::downgrade(my $d =
"\x{e5}"); qr{$u $d}'
Malformed UTF-8 character (1 byte, need 3, after start byte 0xe5) in
regexp compilation at -e line 1.
Malformed UTF-8 character (1 byte, need 3, after start byte 0xe5) in
regexp compilation at -e line 1.

This bug has been reported to upstream
<https://rt.perl.org/rt3//Public/Bug/Display.html?id=118297> and fixed with
upstream commit:

commit b8372399b387c0e276aee3d41b3c7833dd08087b
Author: Dagfinn Ilmari Mannsåker <ilmari at ilmari.org>
Date:   Tue Jun 4 18:15:24 2013 +0100

    [perl #118297] Fix interpolating downgraded variables into upgraded regexp

    The code alredy upgraded the pattern if interpolating an upgraded
    string into it, but not vice versa.  Just use sv_catsv_nomg() instead
    of sv_catpvn_nomg(), so that it can upgrade as necessary.

-- 
You are receiving this mail because:
You are on the CC list for the bug.
Unsubscribe from this bug https://bugzilla.redhat.com/token.cgi?t=1JpTVZjcZ0&a=cc_unsubscribe


More information about the perl-devel mailing list