In perl.git, the branch blead has been updated
<http://perl5.git.perl.org/perl.git/commitdiff/f321be7e68d63f48424096568e313ccad2b06211?hp=617b0ec97dba4848d15439fac520f7269975cf65>
- Log -----------------------------------------------------------------
commit f321be7e68d63f48424096568e313ccad2b06211
Author: SHIRAKATA Kentaro <argr...@ub32.org>
Date: Tue Apr 23 17:34:07 2013 +0900
POD nitpicks.
Also, rebreak some verbatim lines to avoid porting error.
Update known_pod_issues.dat.
-----------------------------------------------------------------------
Summary of changes:
pod/perlfunc.pod | 2 +-
pod/perliol.pod | 2 +-
pod/perlmodinstall.pod | 2 +-
pod/perlrebackslash.pod | 19 +++++++++++--------
pod/perlrecharclass.pod | 2 +-
pod/perluniintro.pod | 2 +-
t/porting/known_pod_issues.dat | 1 -
7 files changed, 16 insertions(+), 14 deletions(-)
diff --git a/pod/perlfunc.pod b/pod/perlfunc.pod
index 050e2d5..33d36d9 100644
--- a/pod/perlfunc.pod
+++ b/pod/perlfunc.pod
@@ -5356,7 +5356,7 @@ This protects against those locales where characters such
as C<"|"> are
considered to be word characters.
Otherwise, Perl quotes non-ASCII characters using an adaptation from
-Unicode (see L<http://www.unicode.org/reports/tr31/>.)
+Unicode (see L<http://www.unicode.org/reports/tr31/>).
The only code points that are quoted are those that have any of the
Unicode properties: Pattern_Syntax, Pattern_White_Space, White_Space,
Default_Ignorable_Code_Point, or General_Category=Control.
diff --git a/pod/perliol.pod b/pod/perliol.pod
index 767fabd..a1ac2f0 100644
--- a/pod/perliol.pod
+++ b/pod/perliol.pod
@@ -685,7 +685,7 @@ Returns 0 on end-of-file, 1 if not end-of-file, -1 on error.
Return error indicator. C<PerlIOBase_error()> is normally sufficient.
-Returns 1 if there is an error (usually when C<PERLIO_F_ERROR> is set,
+Returns 1 if there is an error (usually when C<PERLIO_F_ERROR> is set),
0 otherwise.
=item Clearerr
diff --git a/pod/perlmodinstall.pod b/pod/perlmodinstall.pod
index be06083..f92620c 100644
--- a/pod/perlmodinstall.pod
+++ b/pod/perlmodinstall.pod
@@ -117,7 +117,7 @@ that includes the module. Again, you'll probably need to
be root.
=item *
-B<If you're running ActivePerl (Win95/98/2K/NT/XP, Linux, Solaris)>
+B<If you're running ActivePerl (Win95/98/2K/NT/XP, Linux, Solaris),>
First, type C<ppm> from a shell and see whether ActiveState's PPM
repository has your module. If so, you can install it with C<ppm> and
diff --git a/pod/perlrebackslash.pod b/pod/perlrebackslash.pod
index b34ce0c..44b0e7d 100644
--- a/pod/perlrebackslash.pod
+++ b/pod/perlrebackslash.pod
@@ -68,7 +68,7 @@ as C<Not in [].>
\A Beginning of string. Not in [].
\b Word/non-word boundary. (Backspace in []).
\B Not a word/non-word boundary. Not in [].
- \cX Control-X
+ \cX Control-X.
\C Single octet, even under UTF-8. Not in [].
\d Character class for digits.
\D Character class for non-digits.
@@ -76,7 +76,8 @@ as C<Not in [].>
\E Turn off \Q, \L and \U processing. Not in [].
\f Form feed.
\F Foldcase till \E. Not in [].
- \g{}, \g1 Named, absolute or relative backreference. Not in []
+ \g{}, \g1 Named, absolute or relative backreference.
+ Not in [].
\G Pos assertion. Not in [].
\h Character class for horizontal whitespace.
\H Character class for non horizontal whitespace.
@@ -246,16 +247,17 @@ Mnemonic: I<0>ctal or I<o>ctal.
$str = "Perl";
$str =~ /\o{120}/; # Match, "\120" is "P".
$str =~ /\120/; # Same.
- $str =~ /\o{120}+/; # Match, "\120" is "P", it's repeated at least once
+ $str =~ /\o{120}+/; # Match, "\120" is "P",
+ # it's repeated at least once.
$str =~ /\120+/; # Same.
$str =~ /P\053/; # No match, "\053" is "+" and taken literally.
/\o{23073}/ # Black foreground, white background smiling face.
- /\o{4801234567}/ # Raises a warning, and yields chr(4)
+ /\o{4801234567}/ # Raises a warning, and yields chr(4).
=head4 Disambiguation rules between old-style octal escapes and backreferences
Octal escapes of the C<\000> form outside of bracketed character classes
-potentially clash with old-style backreferences. (see L</Absolute referencing>
+potentially clash with old-style backreferences (see L</Absolute referencing>
below). They both consist of a backslash followed by numbers. So Perl has to
use heuristics to determine whether it is a backreference or an octal escape.
Perl uses the following rules to disambiguate:
@@ -282,7 +284,7 @@ takes only the first three for the octal escape; the rest
are matched as is.
$pat .= ")" x 999;
/^($pat)\1000$/; # Matches 'aa'; there are 1000 capture groups.
/^$pat\1000$/; # Matches 'a@0'; there are 999 capture groups
- # and \1000 is seen as \100 (a '@') and a '0'
+ # and \1000 is seen as \100 (a '@') and a '0'.
=back
@@ -430,7 +432,7 @@ Mnemonic: I<g>roup.
=head4 Examples
/(\w+) \g1/; # Finds a duplicated word, (e.g. "cat cat").
- /(\w+) \1/; # Same thing; written old-style
+ /(\w+) \1/; # Same thing; written old-style.
/(.)(.)\g2\g1/; # Match a four letter palindrome (e.g. "ABBA").
@@ -647,7 +649,8 @@ Mnemonic: eI<X>tended Unicode character.
=head4 Examples
- "\x{256}" =~ /^\C\C$/; # Match as chr (0x256) takes 2 octets in UTF-8.
+ "\x{256}" =~ /^\C\C$/; # Match as chr (0x256) takes
+ # 2 octets in UTF-8.
$str =~ s/foo\Kbar/baz/g; # Change any 'bar' following a 'foo' to 'baz'
$str =~ s/(.)\K\g1//g; # Delete duplicated characters.
diff --git a/pod/perlrecharclass.pod b/pod/perlrecharclass.pod
index 9e73511..eb41ab9 100644
--- a/pod/perlrecharclass.pod
+++ b/pod/perlrecharclass.pod
@@ -534,7 +534,7 @@ escaping.
Examples:
"+" =~ /[+?*]/ # Match, "+" in a character class is not special.
- "\cH" =~ /[\b]/ # Match, \b inside in a character class
+ "\cH" =~ /[\b]/ # Match, \b inside in a character class.
# is equivalent to a backspace.
"]" =~ /[][]/ # Match, as the character class contains.
# both [ and ].
diff --git a/pod/perluniintro.pod b/pod/perluniintro.pod
index 92c5d97..c0cca15 100644
--- a/pod/perluniintro.pod
+++ b/pod/perluniintro.pod
@@ -137,7 +137,7 @@ forms>, of which I<UTF-8> is perhaps the most popular.
UTF-8 is a
variable length encoding that encodes Unicode characters as 1 to 6
bytes. Other encodings
include UTF-16 and UTF-32 and their big- and little-endian variants
-(UTF-8 is byte-order independent) The ISO/IEC 10646 defines the UCS-2
+(UTF-8 is byte-order independent). The ISO/IEC 10646 defines the UCS-2
and UCS-4 encoding forms.
For more information about encodings--for instance, to learn what
diff --git a/t/porting/known_pod_issues.dat b/t/porting/known_pod_issues.dat
index 46790cb..a91d055 100644
--- a/t/porting/known_pod_issues.dat
+++ b/t/porting/known_pod_issues.dat
@@ -258,7 +258,6 @@ pod/perlpacktut.pod Verbatim line length including indents
exceeds 79 by 6
pod/perlperf.pod Verbatim line length including indents exceeds 79 by
154
pod/perlpodspec.pod Verbatim line length including indents exceeds 79 by
9
pod/perlpodstyle.pod Verbatim line length including indents exceeds 79 by
1
-pod/perlrebackslash.pod Verbatim line length including indents exceeds
79 by 1
pod/perlref.pod Verbatim line length including indents exceeds 79 by
1
pod/perlrequick.pod Verbatim line length including indents exceeds 79 by
3
pod/perlretut.pod Verbatim line length including indents exceeds 79 by
13
--
Perl5 Master Repository
