diff options
| author | Chris 'BinGOs' Williams <chris@bingosnet.co.uk> | 2009-05-19 14:21:45 +0200 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2009-05-19 14:21:45 +0200 |
| commit | 3680f2e2de227d39fcfda50b1c3fd7c08ae03800 (patch) | |
| tree | 22760b52c4032fbd759e61e011eee9a79b016575 /lib/CPANPLUS | |
| parent | 2b1d1392b607905ceba6df972064ea1ea6777ba8 (diff) | |
| download | perl-3680f2e2de227d39fcfda50b1c3fd7c08ae03800.tar.gz | |
Re: [PATCH] Update CPANPLUS::Dist::Build to CPAN version 0.30
Erratum: Avoid creating .output files
Diffstat (limited to 'lib/CPANPLUS')
| -rw-r--r-- | lib/CPANPLUS/Dist/Build/t/inc/conf.pl | 37 |
1 files changed, 1 insertions, 36 deletions
diff --git a/lib/CPANPLUS/Dist/Build/t/inc/conf.pl b/lib/CPANPLUS/Dist/Build/t/inc/conf.pl index e4bca173ea..e71b0b47b1 100644 --- a/lib/CPANPLUS/Dist/Build/t/inc/conf.pl +++ b/lib/CPANPLUS/Dist/Build/t/inc/conf.pl @@ -202,46 +202,11 @@ sub gimme_conf { return $conf; }; -{ - my $fh; - my $file = ".".basename($0).".output"; - sub output_handle { - return $fh if $fh; - - $fh = FileHandle->new(">$file") - or warn "Could not open output file '$file': $!"; - - $fh->autoflush(1); - return $fh; - } - - sub output_file { return $file } - - - - ### redirect output from msg() and error() output to file - unless( $ENV{$Env} ) { - - print "# To run tests in verbose mode, set ". - "\$ENV{$Env} = 1\n" unless $ENV{PERL_CORE}; - - 1 while unlink $file; # just in case - - $CPANPLUS::Error::ERROR_FH = - $CPANPLUS::Error::ERROR_FH = output_handle(); - - $CPANPLUS::Error::MSG_FH = - $CPANPLUS::Error::MSG_FH = output_handle(); - - } -} - +# placeholder ### clean these files if we're under perl core END { if ( $ENV{PERL_CORE} ) { - close output_handle(); 1 while unlink output_file(); - _clean_test_dir( [ gimme_conf->get_conf('base'), TEST_CONF_MIRROR_DIR, |