[perl.git] branch blead, updated. GitLive-blead-1155-g3680f2e

In perl.git, the branch blead has been updated

<http://perl5.git.perl.org/perl.git/commitdiff/3680f2e2de227d39fcfda50b1c3fd7c08ae03800?hp=2b1d1392b607905ceba6df972064ea1ea6777ba8>

- Log -----------------------------------------------------------------
commit 3680f2e2de227d39fcfda50b1c3fd7c08ae03800
Author: Chris 'BinGOs' Williams <chris@bingosnet.co.uk>
Date:   Tue May 19 14:21:45 2009 +0200

    Re: [PATCH] Update CPANPLUS::Dist::Build to CPAN version 0.30
    
    Erratum: Avoid creating .output files
-----------------------------------------------------------------------

Summary of changes:
 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 e4bca17..e71b0b4 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,

--
Perl5 Master Repository

• [perl.git] branch blead, updated. GitLive-blead-1155-g3680f2e by Rafael Garcia-Suarez
• Re: [perl.git] branch blead, updated. GitLive-blead-1155-g3680f2e by Jerry D. Hedden
• Re: [perl.git] branch blead, updated. GitLive-blead-1155-g3680f2e by Rafael Garcia-Suarez