diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2007-04-23 09:53:41 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2007-04-23 09:53:41 +0000 |
| commit | 6d7b854fe00117e28af7f34a53d806bb43a5efb4 (patch) | |
| tree | 394eb990c1a804dd005e49cf7506b522a3da6d14 /lib | |
| parent | 3ab4a224eb8d34c041977288575d251ee18f009f (diff) | |
| download | perl-6d7b854fe00117e28af7f34a53d806bb43a5efb4.tar.gz | |
Patch to config to avoid failures in the perl core due
to too much verbosity (by Jos Boumans)
p4raw-id: //depot/perl@31028
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/CPANPLUS/t/inc/conf.pl | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/lib/CPANPLUS/t/inc/conf.pl b/lib/CPANPLUS/t/inc/conf.pl index 50c897049e..0694a79bcc 100644 --- a/lib/CPANPLUS/t/inc/conf.pl +++ b/lib/CPANPLUS/t/inc/conf.pl @@ -120,7 +120,7 @@ sub gimme_conf { # TEST_INSTALL_DIR_BIN, # TEST_INSTALL_DIR_MAN1, # TEST_INSTALL_DIR_MAN3, - ], 1 ); + ], ( $ENV{PERL_CORE} ? 0 : 1 ) ); return $conf; }; @@ -154,7 +154,7 @@ END { # TEST_INSTALL_DIR_BIN, # TEST_INSTALL_DIR_MAN1, # TEST_INSTALL_DIR_MAN3, - ], 1 ); + ], 0 ); # DO NOT be verbose under perl core -- makes tests fail } } @@ -168,6 +168,9 @@ sub _clean_test_dir { for my $dir ( @$dirs ) { + ### no point if it doesn't exist; + next unless -d $dir; + my $dh; opendir $dh, $dir or die "Could not open basedir '$dir': $!"; while( my $file = readdir $dh ) { @@ -177,7 +180,7 @@ sub _clean_test_dir { ### directory, rmtree it if( -d $path ) { - print "Deleting directory '$path'\n" if $verbose; + print "# Deleting directory '$path'\n" if $verbose; eval { rmtree( $path ) }; warn "Could not delete '$path' while cleaning up '$dir'" if $@; |