[svn:CPANPLUS-Dist-Build] r12782 - in CPANPLUS-Dist-Build/trunk: . t/inc

Author: BINGOS
Date: Tue May 19 04:47:22 2009
New Revision: 12782

Modified:
   CPANPLUS-Dist-Build/trunk/Changes
   CPANPLUS-Dist-Build/trunk/t/inc/conf.pl

Log:
Removed generation of .output files

Modified: CPANPLUS-Dist-Build/trunk/Changes
==============================================================================
--- CPANPLUS-Dist-Build/trunk/Changes	(original)
+++ CPANPLUS-Dist-Build/trunk/Changes	Tue May 19 04:47:22 2009
@@ -1,5 +1,8 @@
 Revision history for Perl extension CPANPLUS::Dist::Build.
 
+0.32
+  - Removed generation of .output files
+
 0.30 Mon May 18 16:23:14 BST 2009
   - [RT #46176] Skip XS tests when perl compiled without dynamic
     loading. Reported by Andy Dougherty

Modified: CPANPLUS-Dist-Build/trunk/t/inc/conf.pl
==============================================================================
--- CPANPLUS-Dist-Build/trunk/t/inc/conf.pl	(original)
+++ CPANPLUS-Dist-Build/trunk/t/inc/conf.pl	Tue May 19 04:47:22 2009
@@ -202,40 +202,7 @@
     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 {