From 3ecf39046a28b9312241175fa5493a56fb1529e2 Mon Sep 17 00:00:00 2001 From: Karl Williamson Date: Sat, 18 Jun 2011 10:47:08 -0600 Subject: [PATCH] podcheck: Dashes often occur in file names --- t/porting/known_pod_issues.dat | 1 + t/porting/podcheck.t | 2 +- 2 files changed, 2 insertions(+), 1 deletion(-) diff --git a/t/porting/known_pod_issues.dat b/t/porting/known_pod_issues.dat index 92d6f5f..ab0427d 100644 --- 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 --- 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 -- 2.7.4