summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorSHIRAKATA Kentaro <argrath@ub32.org>2013-04-23 17:34:07 +0900
committerJames E Keenan <jkeenan@cpan.org>2013-04-23 20:00:51 -0400
commitf321be7e68d63f48424096568e313ccad2b06211 (patch)
treea7cace2a8666ca0f04566808fdd931f4c0893cd7
parent617b0ec97dba4848d15439fac520f7269975cf65 (diff)
downloadperl-f321be7e68d63f48424096568e313ccad2b06211.tar.gz
POD nitpicks.
Also, rebreak some verbatim lines to avoid porting error. Update known_pod_issues.dat.
-rw-r--r--pod/perlfunc.pod2
-rw-r--r--pod/perliol.pod2
-rw-r--r--pod/perlmodinstall.pod2
-rw-r--r--pod/perlrebackslash.pod19
-rw-r--r--pod/perlrecharclass.pod2
-rw-r--r--pod/perluniintro.pod2
-rw-r--r--t/porting/known_pod_issues.dat1
7 files changed, 16 insertions, 14 deletions
diff --git a/pod/perlfunc.pod b/pod/perlfunc.pod
index 050e2d5490..33d36d90b7 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 767fabdd7f..a1ac2f0f33 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 be0608316e..f92620c6d6 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 b34ce0c07d..44b0e7db06 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 9e735111e2..eb41ab9eec 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 92c5d97644..c0cca15194 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 46790cbfa8..a91d055801 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