This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
podcheck.t: Extract line numbers from strings properly
[perl5.git] / t / porting / podcheck.t
index 6063462..7bf677c 100644 (file)
@@ -414,7 +414,7 @@ package My::Pod::Checker {      # Extend Pod::Checker
     # re's for messages that Pod::Checker outputs
     my $location = qr/ \b (?:in|at|on|near) \s+ /xi;
     my $optional_location = qr/ (?: $location )? /xi;
-    my $line_reference = qr/ [('"]? $optional_location line\
+    my $line_reference = qr/ [('"]? $optional_location \b line \s+
                              (?: \d+ | EOF | \Q???\E | - )
                              [)'"]? /xi;