diff options
author | Karl Williamson <public@khwilliamson.com> | 2011-05-26 12:35:42 -0600 |
---|---|---|
committer | Karl Williamson <public@khwilliamson.com> | 2011-05-26 12:49:57 -0600 |
commit | a71e7b2cdc79f5bd0c0a434a10d754c4a56bb6b7 (patch) | |
tree | 50e1e1594f4fb0d21b9d54f1ffe255e653f54103 /t | |
parent | be39e7f82f6f2c2a0604f4a3fdff500b1e56633b (diff) | |
download | perl-a71e7b2cdc79f5bd0c0a434a10d754c4a56bb6b7.tar.gz |
podcheck.t: Skip some more non-pod files
This skips editor droppings.
Diffstat (limited to 't')
-rw-r--r-- | t/porting/podcheck.t | 12 |
1 files changed, 10 insertions, 2 deletions
diff --git a/t/porting/podcheck.t b/t/porting/podcheck.t index 98d7a4942c..c985f059e5 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 |