podcheck: Dashes often occur in file names

diff --git a/t/porting/known_pod_issues.dat b/t/porting/known_pod_issues.dat
index 92d6f5f..ab0427d 100644 (file)
--- a/t/porting/known_pod_issues.dat
+++ b/t/porting/known_pod_issues.dat
@@ -282,6 +282,7 @@ pod/perlretut.pod   Verbatim line length including indents exceeds 80 by    13
 pod/perlrun.pod        ? Should you be using L<...> instead of 2
 pod/perlrun.pod        Apparent broken link    3
 pod/perlrun.pod        Verbatim line length including indents exceeds 80 by    17
+pod/perlsec.pod        ? Should you be using F<...> or maybe L<...> instead of 1
 pod/perlsec.pod        Verbatim line length including indents exceeds 80 by    1
 pod/perlsolaris.pod    Apparent broken link    1
 pod/perlsolaris.pod    Verbatim line length including indents exceeds 80 by    14

diff --git a/t/porting/podcheck.t b/t/porting/podcheck.t
index 7e4320c..68ee643 100644 (file)
--- a/t/porting/podcheck.t
+++ b/t/porting/podcheck.t
@@ -650,7 +650,7 @@ package My::Pod::Checker {      # Extend Pod::Checker
         my $C_path_re = qr{ \b ( C<
                                 # exclude regexes and 'OS/2'
                                 (?! (?: (?: s | qr | m) / ) | OS/2 > )
-                                \w+ (?: / \w+ )+ > (?: \. \w+ )? )
+                                [-\w]+ (?: / [-\w]+ )+ > (?: \. \w+ )? )
                           }x;
 
         # If looks like a reference to other documentation by containing the