From a71e7b2cdc79f5bd0c0a434a10d754c4a56bb6b7 Mon Sep 17 00:00:00 2001 From: Karl Williamson Date: Thu, 26 May 2011 12:35:42 -0600 Subject: [PATCH] podcheck.t: Skip some more non-pod files This skips editor droppings. --- t/porting/podcheck.t | 12 ++++++++++-- 1 file changed, 10 insertions(+), 2 deletions(-) diff --git a/t/porting/podcheck.t b/t/porting/podcheck.t index 98d7a49..c985f05 100644 --- a/t/porting/podcheck.t +++ b/t/porting/podcheck.t @@ -214,8 +214,16 @@ my $no_name = "There is no NAME"; my $missing_name_description = "The NAME should have a dash and short description after it"; # objects, tests, etc can't be pods, so don't look for them. Also skip -# files output by the patch program. -my $non_pods = qr/\.(?:[achot]|zip|gz|bz2|jar|tar|tgz|PL|so|orig|rej)$/; +# files output by the patch program. Could also ignore most of .gitignore +# files, but not all, so don't. +my $non_pods = qr/ (?: \. + (?: [achot] | zip | gz | bz2 | jar | tar | tgz | PL | so + | orig | rej | patch # Patch program output + | sw[op] | \#.* # Editor droppings + ) + $ + ) | ~$ # Another editor dropping + /x; # Pod::Checker messages to suppress -- 2.7.4