diff options
| author | Dagfinn Ilmari Mannsåker <ilmari@ilmari.org> | 2019-10-03 11:29:30 +0100 |
|---|---|---|
| committer | Dagfinn Ilmari Mannsåker <ilmari@ilmari.org> | 2019-10-03 11:29:30 +0100 |
| commit | 7ac841d7d0e987409c9d8a239761ab06c6df8e98 (patch) | |
| tree | cc2b3affe6693ca23a56383aefcd399e6b148a0d /lib/charnames.t | |
| parent | d870e48d0f79756c36f71c7a21e6b4e8edf017c0 (diff) | |
| download | perl-7ac841d7d0e987409c9d8a239761ab06c6df8e98.tar.gz | |
Use balanced delimiters for multi-line s///gxe
Diffstat (limited to 'lib/charnames.t')
| -rw-r--r-- | lib/charnames.t | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/charnames.t b/lib/charnames.t index 723c02fb8b..59ac8b8ac6 100644 --- a/lib/charnames.t +++ b/lib/charnames.t @@ -1259,8 +1259,8 @@ is("\N{U+1D0C5}", "\N{BYZANTINE MUSICAL SYMBOL FTHORA SKLIRON CHROMA VASIS}", 'V s/^\s*#.*//; next unless $_; my ($name, $codes) = split ";"; - $codes =~ s/\b 00 ( [0-9A-F]{2} ) \b/ - sprintf("%04X", utf8::unicode_to_native(hex $1))/gxe + $codes =~ s{ \b 00 ( [0-9A-F]{2} ) \b } + { sprintf("%04X", utf8::unicode_to_native(hex $1)) }gxe if ord "A" != 65; my $utf8 = pack("W*", map { hex } split " ", $codes); is(charnames::string_vianame($name), $utf8, "Verify string_vianame(\"$name\") is the proper utf8"); |