In perl.git, the branch blead has been updated <https://perl5.git.perl.org/perl.git/commitdiff/7ac841d7d0e987409c9d8a239761ab06c6df8e98?hp=d870e48d0f79756c36f71c7a21e6b4e8edf017c0>
- Log ----------------------------------------------------------------- commit 7ac841d7d0e987409c9d8a239761ab06c6df8e98 Author: Dagfinn Ilmari Mannsåker <[email protected]> Date: Thu Oct 3 11:29:30 2019 +0100 Use balanced delimiters for multi-line s///gxe ----------------------------------------------------------------------- Summary of changes: charclass_invlists.h | 2 +- lib/charnames.t | 4 ++-- lib/unicore/mktables | 4 ++-- lib/unicore/uni_keywords.pl | 2 +- uni_keywords.h | 2 +- 5 files changed, 7 insertions(+), 7 deletions(-) diff --git a/charclass_invlists.h b/charclass_invlists.h index 50cf43bd17..219f1a3404 100644 --- a/charclass_invlists.h +++ b/charclass_invlists.h @@ -395307,7 +395307,7 @@ static const U8 WB_table[23][23] = { * 78e2600e24fa7d5ab62117de50b382f8b31b08401c37a0782c38dacb340b64e7 lib/unicore/extracted/DLineBreak.txt * 1bde4ad73e271c6349fbd1972e54f38bba5cc1900c28f678e79b9e8909b31793 lib/unicore/extracted/DNumType.txt * 6278722699123f3890e4b1cc42011e96d8960e4958a3b93484361530983d2611 lib/unicore/extracted/DNumValues.txt - * 70966df83428f30e3b8a0f75539b3cf4964248c73ce898aabdcb819d6eb8175a lib/unicore/mktables + * 9c3e02eae5f5fb1f34d2ec6a13213917ac2c52f9dffc427b099f2f0a56feea9a lib/unicore/mktables * a712c758275b460d18fa77a26ed3589689bb3f69dcc1ea99b913e32db92a5cd2 lib/unicore/version * 2680b9254eb236c5c090f11b149605043e8c8433661b96efc4a42fb4709342a5 regen/charset_translations.pl * 03e51b0f07beebd5da62ab943899aa4934eee1f792fa27c1fb638c33bf4ac6ea regen/mk_PL_charclass.pl 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"); diff --git a/lib/unicore/mktables b/lib/unicore/mktables index 8b16b820cd..c8452cc486 100644 --- a/lib/unicore/mktables +++ b/lib/unicore/mktables @@ -12525,8 +12525,8 @@ sub process_NamedSequences { } # Code points below 0x0100 need to be converted to native - $sequence =~ s/\b 00 ( [0-9A-F]{2} ) \b/ - sprintf("%04X", utf8::unicode_to_native(hex $1))/gxe + $sequence =~ s{ \b 00 ( [0-9A-F]{2} ) \b } + { sprintf("%04X", utf8::unicode_to_native(hex $1)) }gxe if NON_ASCII_PLATFORM; # Note single \t in keeping with special output format of diff --git a/lib/unicore/uni_keywords.pl b/lib/unicore/uni_keywords.pl index 94e8c183c7..e90e6de2e1 100644 --- a/lib/unicore/uni_keywords.pl +++ b/lib/unicore/uni_keywords.pl @@ -1261,7 +1261,7 @@ # 78e2600e24fa7d5ab62117de50b382f8b31b08401c37a0782c38dacb340b64e7 lib/unicore/extracted/DLineBreak.txt # 1bde4ad73e271c6349fbd1972e54f38bba5cc1900c28f678e79b9e8909b31793 lib/unicore/extracted/DNumType.txt # 6278722699123f3890e4b1cc42011e96d8960e4958a3b93484361530983d2611 lib/unicore/extracted/DNumValues.txt -# 70966df83428f30e3b8a0f75539b3cf4964248c73ce898aabdcb819d6eb8175a lib/unicore/mktables +# 9c3e02eae5f5fb1f34d2ec6a13213917ac2c52f9dffc427b099f2f0a56feea9a lib/unicore/mktables # a712c758275b460d18fa77a26ed3589689bb3f69dcc1ea99b913e32db92a5cd2 lib/unicore/version # 2680b9254eb236c5c090f11b149605043e8c8433661b96efc4a42fb4709342a5 regen/charset_translations.pl # 03e51b0f07beebd5da62ab943899aa4934eee1f792fa27c1fb638c33bf4ac6ea regen/mk_PL_charclass.pl diff --git a/uni_keywords.h b/uni_keywords.h index f088a431f1..73fbf1d84a 100644 --- a/uni_keywords.h +++ b/uni_keywords.h @@ -7284,7 +7284,7 @@ MPH_VALt match_uniprop( const unsigned char * const key, const U16 key_len ) { * 78e2600e24fa7d5ab62117de50b382f8b31b08401c37a0782c38dacb340b64e7 lib/unicore/extracted/DLineBreak.txt * 1bde4ad73e271c6349fbd1972e54f38bba5cc1900c28f678e79b9e8909b31793 lib/unicore/extracted/DNumType.txt * 6278722699123f3890e4b1cc42011e96d8960e4958a3b93484361530983d2611 lib/unicore/extracted/DNumValues.txt - * 70966df83428f30e3b8a0f75539b3cf4964248c73ce898aabdcb819d6eb8175a lib/unicore/mktables + * 0e4964d17f9da0415977193f7f05f6db2994f59ea4a5be5281f1add183bcf8d0 lib/unicore/mktables * a712c758275b460d18fa77a26ed3589689bb3f69dcc1ea99b913e32db92a5cd2 lib/unicore/version * 2680b9254eb236c5c090f11b149605043e8c8433661b96efc4a42fb4709342a5 regen/charset_translations.pl * 03e51b0f07beebd5da62ab943899aa4934eee1f792fa27c1fb638c33bf4ac6ea regen/mk_PL_charclass.pl -- Perl5 Master Repository
