1 package MakeMaker::Test::Setup::Recurs;
5 @EXPORT = qw(setup_recurs teardown_recurs);
10 use MakeMaker::Test::Utils;
13 'Recurs/Makefile.PL' => <<'END',
14 use ExtUtils::MakeMaker;
22 'Recurs/prj2/Makefile.PL' => <<'END',
23 use ExtUtils::MakeMaker;
26 NAME => 'Recurs::prj2',
34 chdir 'MM_TEST_ROOT:[t]' if $^O eq 'VMS';
36 while(my($file, $text) = each %Files) {
37 # Convert to a relative, native file path.
38 $file = File::Spec->catfile(File::Spec->curdir, split m{\/}, $file);
40 my $dir = dirname($file);
42 open(FILE, ">$file") || die "Can't create $file: $!";
51 foreach my $file (keys %Files) {
52 my $dir = dirname($file);
54 rmtree($dir) || return;