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 {
