use strict;
use Test::More tests => 9;
-use File::Path;
use File::Basename;
+use File::Path;
+use File::Spec;
my %Files = (
'Big-Dummy/lib/Big/Dummy.pm' => <<'END',
$VERSION = 0.01;
+=head1 NAME
+
+Big::Dummy - Try "our" hot dog's
+
+=cut
+
1;
END
WriteMakefile(
NAME => 'Big::Dummy',
VERSION_FROM => 'lib/Big/Dummy.pm',
- PREREQ_PM => {},
+ PREREQ_PM => { strict => 0 },
+ ABSTRACT_FROM => 'lib/Big/Dummy.pm',
+ AUTHOR => 'Michael G Schwern <schwern@pobox.com>',
);
END
);
while(my($file, $text) = each %Files) {
+ # Convert to a relative, native file path.
+ $file = File::Spec->catfile(File::Spec->curdir, split m{\/}, $file);
+
my $dir = dirname($file);
mkpath $dir;
open(FILE, ">$file");