This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
avoid unnecessary noise from lib/h2xs.t
authorTony Cook <tony@develop-help.com>
Thu, 13 Aug 2015 05:40:32 +0000 (15:40 +1000)
committerTony Cook <tony@develop-help.com>
Thu, 13 Aug 2015 05:40:32 +0000 (15:40 +1000)
lib/h2xs.t

index d10ce75..25502da 100644 (file)
@@ -72,7 +72,7 @@ my $thisversion = sprintf "%vd", $^V;
 $thisversion =~ s/^v//;
 
 # If this test has failed previously a copy may be left.
-rmtree($name);
+rmtree($name) if -e $name;
 
 my @tests = (
 "-f -n $name", $], <<"EOXSFILES",