This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
podcheck.t: White-space only changes
authorKarl Williamson <public@khwilliamson.com>
Sun, 19 Jun 2011 19:11:25 +0000 (13:11 -0600)
committerKarl Williamson <public@khwilliamson.com>
Tue, 21 Jun 2011 13:59:02 +0000 (07:59 -0600)
t/porting/podcheck.t

index dc358f3..21ffeed 100644 (file)
@@ -677,42 +677,43 @@ package My::Pod::Checker {      # Extend Pod::Checker
             # beginning of a sentence.
             if ($prefix !~ / \b you \b /x) {
 
-            # Now, find what the module or man page name within the construct
-            # would be if it actually has L<> syntax.  If it doesn't have that
-            # syntax, will set the module to the entire interior.
-            $interior =~ m/ ^
-                            (?: [^|]+ \| )? # Optional arbitrary text ending in
-                                            # "|"
-                            ( .+? )         # module, etc. name
-                            (?: \/ .+ )?    # target within module
-                            $
-                         /xs;
-            my $module = $1;
-            if (! defined $trailing # not referring to something in another
-                                    # section
-                && $interior !~ /$non_pods/
-
-                # C<> that look like files have their own message below, so
-                # exclude them
-                && $construct !~ /$C_path_re/g
-
-                # There can't be spaces (I think) in module names or man
-                # pages
-                && $module !~ / \s /x
-
-                # F<> that end in eg \.pl are almost certainly ok, as are
-                # those that look like a path with multiple "/" chars
-                && ($type ne "F"
-                    || (! -e $interior
-                        && $interior !~ /\.\w+$/
-                        && $interior !~ /\/.+\//)
-                   )
-            ) {
-                $self->poderror({ -line => $line, -file => $file,
-                    -msg => $see_not_linked,
-                    parameter => $construct
-                });
-            }
+                # Now, find what the module or man page name within the
+                # construct would be if it actually has L<> syntax.  If it
+                # doesn't have that syntax, will set the module to the entire
+                # interior.
+                $interior =~ m/ ^
+                                (?: [^|]+ \| )? # Optional arbitrary text ending
+                                                # in "|"
+                                ( .+? )         # module, etc. name
+                                (?: \/ .+ )?    # target within module
+                                $
+                            /xs;
+                my $module = $1;
+                if (! defined $trailing # not referring to something in another
+                                        # section
+                    && $interior !~ /$non_pods/
+
+                    # C<> that look like files have their own message below, so
+                    # exclude them
+                    && $construct !~ /$C_path_re/g
+
+                    # There can't be spaces (I think) in module names or man
+                    # pages
+                    && $module !~ / \s /x
+
+                    # F<> that end in eg \.pl are almost certainly ok, as are
+                    # those that look like a path with multiple "/" chars
+                    && ($type ne "F"
+                        || (! -e $interior
+                            && $interior !~ /\.\w+$/
+                            && $interior !~ /\/.+\//)
+                    )
+                ) {
+                    $self->poderror({ -line => $line, -file => $file,
+                        -msg => $see_not_linked,
+                        parameter => $construct
+                    });
+                }
             }
         }
         while ($paragraph =~ m/$C_path_re/g) {