diff options
author | Karl Williamson <khw@cpan.org> | 2020-05-22 07:20:14 -0600 |
---|---|---|
committer | Sawyer X <xsawyerx@cpan.org> | 2020-05-27 11:09:32 +0300 |
commit | 2e8ed713fb0c88f06f03cdd42ecea4b5a2beff01 (patch) | |
tree | 5969437e8febb00ef5eb9a83731bf9f7905f80e9 | |
parent | 8a0a216ecd10f9ae05af7f36957df8ffc957e7f1 (diff) | |
download | perl-2e8ed713fb0c88f06f03cdd42ecea4b5a2beff01.tar.gz |
pod/perluniprops: Split run-on lines before '\'
This changes mktables, which generates this pod, to consider long pod
lines to be splittable before most backslashes. On os390, the lack of
this caused a line to not be split at all, creating a Porting test
failure.
There is also a current rule that you can split at a lowercase/uppercase
boundary. This works for the limited domain this code is run on. But
it shouldn't split \cK. So don't do the split if the lowercase is a
single letter preceded by a backslash.
-rw-r--r-- | charclass_invlists.h | 2 | ||||
-rw-r--r-- | lib/unicore/mktables | 5 | ||||
-rw-r--r-- | lib/unicore/uni_keywords.pl | 2 | ||||
-rw-r--r-- | regcharclass.h | 2 | ||||
-rw-r--r-- | uni_keywords.h | 2 |
5 files changed, 8 insertions, 5 deletions
diff --git a/charclass_invlists.h b/charclass_invlists.h index 9e2b676989..9a6a9cf789 100644 --- a/charclass_invlists.h +++ b/charclass_invlists.h @@ -419864,7 +419864,7 @@ static const U8 WB_table[23][23] = { * baba9dfc133e3cb770a89aaf0973b1341fa61c2da6c176baf6428898b3b568d8 lib/unicore/extracted/DLineBreak.txt * 6d4a8c945dd7db83ed617cbb7d937de7f4ecf016ff22970d846e996a7c9a2a5d lib/unicore/extracted/DNumType.txt * 5b7c14380d5cceeaffcfbc18db1ed936391d2af2d51f5a41f1a17b692c77e59b lib/unicore/extracted/DNumValues.txt - * aee2ce1142e88494b09ea4abc065f8d74ad1a95f5fb3e03da469ab84306386e9 lib/unicore/mktables + * ee0dd174fd5b158d82dfea95d7d822ca0bfcd490182669353dca3ab39a8ee807 lib/unicore/mktables * 50b85a67451145545a65cea370dab8d3444fbfe07e9c34cef560c5b7da9d3eef lib/unicore/version * 2680b9254eb236c5c090f11b149605043e8c8433661b96efc4a42fb4709342a5 regen/charset_translations.pl * 6bbad21de0848e0236b02f34f5fa0edd3cdae9ba8173cc9469a5513936b9e728 regen/mk_PL_charclass.pl diff --git a/lib/unicore/mktables b/lib/unicore/mktables index 8ae7b6fe21..89930f5ee6 100644 --- a/lib/unicore/mktables +++ b/lib/unicore/mktables @@ -9587,6 +9587,9 @@ sub simple_fold( $line, $prefix="", $hanging_indent=0, $right_margin=0) { (?: # acceptable break: [ \s = ] # space or equal | - (?! [.0-9] ) # or non-unary minus. + | [^\\[(] (?= \\ )# break before single backslash + # not immediately after opening + # punctuation ) # $1 includes the character )/x) { @@ -9608,7 +9611,7 @@ sub simple_fold( $line, $prefix="", $hanging_indent=0, $right_margin=0) { # access the files that this program is creating. elsif ($segment !~ /\a/ && ($segment =~ s/_/_\a/g - || $segment =~ s/ ( [a-z] ) (?= [A-Z] )/$1\a/xg)) + || $segment =~ s/ ( (?!\\) [a-z] ) (?= [A-Z] )/$1\a/xg)) { # Here were able to find at least one place to insert # our substitute soft hyphen. Find the right-most one diff --git a/lib/unicore/uni_keywords.pl b/lib/unicore/uni_keywords.pl index 3dc3a893bf..2b57230782 100644 --- a/lib/unicore/uni_keywords.pl +++ b/lib/unicore/uni_keywords.pl @@ -1295,7 +1295,7 @@ # baba9dfc133e3cb770a89aaf0973b1341fa61c2da6c176baf6428898b3b568d8 lib/unicore/extracted/DLineBreak.txt # 6d4a8c945dd7db83ed617cbb7d937de7f4ecf016ff22970d846e996a7c9a2a5d lib/unicore/extracted/DNumType.txt # 5b7c14380d5cceeaffcfbc18db1ed936391d2af2d51f5a41f1a17b692c77e59b lib/unicore/extracted/DNumValues.txt -# aee2ce1142e88494b09ea4abc065f8d74ad1a95f5fb3e03da469ab84306386e9 lib/unicore/mktables +# ee0dd174fd5b158d82dfea95d7d822ca0bfcd490182669353dca3ab39a8ee807 lib/unicore/mktables # 50b85a67451145545a65cea370dab8d3444fbfe07e9c34cef560c5b7da9d3eef lib/unicore/version # 2680b9254eb236c5c090f11b149605043e8c8433661b96efc4a42fb4709342a5 regen/charset_translations.pl # 6bbad21de0848e0236b02f34f5fa0edd3cdae9ba8173cc9469a5513936b9e728 regen/mk_PL_charclass.pl diff --git a/regcharclass.h b/regcharclass.h index c9e0bfe816..0bc48500f0 100644 --- a/regcharclass.h +++ b/regcharclass.h @@ -2247,7 +2247,7 @@ * baba9dfc133e3cb770a89aaf0973b1341fa61c2da6c176baf6428898b3b568d8 lib/unicore/extracted/DLineBreak.txt * 6d4a8c945dd7db83ed617cbb7d937de7f4ecf016ff22970d846e996a7c9a2a5d lib/unicore/extracted/DNumType.txt * 5b7c14380d5cceeaffcfbc18db1ed936391d2af2d51f5a41f1a17b692c77e59b lib/unicore/extracted/DNumValues.txt - * aee2ce1142e88494b09ea4abc065f8d74ad1a95f5fb3e03da469ab84306386e9 lib/unicore/mktables + * ee0dd174fd5b158d82dfea95d7d822ca0bfcd490182669353dca3ab39a8ee807 lib/unicore/mktables * 50b85a67451145545a65cea370dab8d3444fbfe07e9c34cef560c5b7da9d3eef lib/unicore/version * 2680b9254eb236c5c090f11b149605043e8c8433661b96efc4a42fb4709342a5 regen/charset_translations.pl * f9a393e7add8c7c2728356473ce5b52246d51295b2da0c48fb6f0aa21799e2bb regen/regcharclass.pl diff --git a/uni_keywords.h b/uni_keywords.h index d851d91fcd..a36d8bc448 100644 --- a/uni_keywords.h +++ b/uni_keywords.h @@ -7537,7 +7537,7 @@ MPH_VALt match_uniprop( const unsigned char * const key, const U16 key_len ) { * baba9dfc133e3cb770a89aaf0973b1341fa61c2da6c176baf6428898b3b568d8 lib/unicore/extracted/DLineBreak.txt * 6d4a8c945dd7db83ed617cbb7d937de7f4ecf016ff22970d846e996a7c9a2a5d lib/unicore/extracted/DNumType.txt * 5b7c14380d5cceeaffcfbc18db1ed936391d2af2d51f5a41f1a17b692c77e59b lib/unicore/extracted/DNumValues.txt - * aee2ce1142e88494b09ea4abc065f8d74ad1a95f5fb3e03da469ab84306386e9 lib/unicore/mktables + * ee0dd174fd5b158d82dfea95d7d822ca0bfcd490182669353dca3ab39a8ee807 lib/unicore/mktables * 50b85a67451145545a65cea370dab8d3444fbfe07e9c34cef560c5b7da9d3eef lib/unicore/version * 2680b9254eb236c5c090f11b149605043e8c8433661b96efc4a42fb4709342a5 regen/charset_translations.pl * 6bbad21de0848e0236b02f34f5fa0edd3cdae9ba8173cc9469a5513936b9e728 regen/mk_PL_charclass.pl |