fix pod test to not look at editor temp files

diff --git a/t/01_pod.t b/t/01_pod.t
index 8fb590fcd65d1f2b6e8503820a354860cf62530b..2f1d2dfb8371d8736fa759c0573f003f2583c562 100644 (file)
--- a/t/01_pod.t
+++ b/t/01_pod.t
@@ -2,4 +2,6 @@
 use Test::More;
 eval "use Test::Pod 1.00";
 plan skip_all => "Test::Pod 1.00 required for testing POD" if $@;
-all_pod_files_ok(all_pod_files('.'));
+all_pod_files_ok(grep {$_ !~ /[~#]$/} all_pod_files((-e 'blib'?'blib':(qw(Debbugs Mail))),
+                                                     (qw(bin cgi scripts))
+                                                    ));