1 package MakeMaker::Test::Setup::Recurs;
5 @EXPORT = qw(setup_recurs teardown_recurs);
12 'Recurs/Makefile.PL' => <<'END',
13 use ExtUtils::MakeMaker;
21 'Recurs/prj2/Makefile.PL' => <<'END',
22 use ExtUtils::MakeMaker;
25 NAME => 'Recurs::prj2',
32 while(my($file, $text) = each %Files) {
33 # Convert to a relative, native file path.
34 $file = File::Spec->catfile(File::Spec->curdir, split m{\/}, $file);
36 my $dir = dirname($file);
38 open(FILE, ">$file") || die "Can't create $file: $!";
47 foreach my $file (keys %Files) {
48 my $dir = dirname($file);
50 rmtree($dir) || return;