* Ken Foskey <[EMAIL PROTECTED]> [2006-06-03T06:53:35] > #!/usr/bin/perl > # Ensure POD is set up correctly. > 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( map( glob( "*.pm" ), s/.pm$//) );
Your map doesn't make any sense. It says:
for each element resulting from replacing .pm with nothing at the end of the
topic:
return all files ending in .pm
I'm guessing that $_ is not defined. You would have gotten a warning if you
were using strict and warnings. This is why you should always use strict and
warnings: it cuts the latency on help responses from an hour to a second or
so.
Maybe you meant this:
all_pod_files_ok( map { s/.pm$//; $_ } glob("*.pm") );
That doesn't make sense, either. all_pod_files_ok wants filenames, not
filenames without extensions. You probably want:
all_pod_files_ok(glob("*.pm"));
I've almost never needed to use anything more than:
all_pod_files_ok():
That finds your perl modules in lib or blib, which is where they should be in a
standard dist.
--
rjbs
signature.asc
Description: Digital signature
