This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
In t/lib/common.pl, load File::Path on demand.
authorNicholas Clark <nick@ccl4.org>
Thu, 24 Feb 2011 14:43:52 +0000 (14:43 +0000)
committerNicholas Clark <nick@ccl4.org>
Fri, 25 Feb 2011 07:59:50 +0000 (07:59 +0000)
This will facilitate a subsequent refactoring.

t/lib/common.pl

index 8c81603..7136b35 100644 (file)
@@ -10,7 +10,6 @@ BEGIN {
 }
 
 use Config;
 }
 
 use Config;
-use File::Path;
 use File::Spec::Functions qw(catfile curdir rel2abs);
 
 use strict;
 use File::Spec::Functions qw(catfile curdir rel2abs);
 
 use strict;
@@ -66,8 +65,9 @@ my %tempfiles;
 
 END {
     if ($cleanup) {
 
 END {
     if ($cleanup) {
+       require File::Path;
        chdir '..' or die "Couldn't chdir .. for cleanup: $!";
        chdir '..' or die "Couldn't chdir .. for cleanup: $!";
-       rmtree($tempdir);
+       File::Path::rmtree($tempdir);
     }
 }
 
     }
 }
 
@@ -116,7 +116,8 @@ for (@prgs){
            my $code = shift @files ;
            push @temps, $filename ;
            if ($filename =~ m#(.*)/# && $filename !~ m#^\.\./#) {
            my $code = shift @files ;
            push @temps, $filename ;
            if ($filename =~ m#(.*)/# && $filename !~ m#^\.\./#) {
-                mkpath($1);
+               require File::Path;
+                File::Path::mkpath($1);
                 push(@temp_path, $1);
            }
            open F, ">$filename" or die "Cannot open $filename: $!\n" ;
                 push(@temp_path, $1);
            }
            open F, ">$filename" or die "Cannot open $filename: $!\n" ;
@@ -217,7 +218,7 @@ for (@prgs){
     foreach (@temps)
        { unlink $_ if $_ }
     foreach (@temp_path)
     foreach (@temps)
        { unlink $_ if $_ }
     foreach (@temp_path)
-       { rmtree $_ if -d $_ }
+       { File::Path::rmtree $_ if -d $_ }
 }
 
 1;
 }
 
 1;