Rafael Garcia-Suarez
2009-05-19 12:22:09 UTC
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 <***@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
<http://perl5.git.perl.org/perl.git/commitdiff/3680f2e2de227d39fcfda50b1c3fd7c08ae03800?hp=2b1d1392b607905ceba6df972064ea1ea6777ba8>
- Log -----------------------------------------------------------------
commit 3680f2e2de227d39fcfda50b1c3fd7c08ae03800
Author: Chris 'BinGOs' Williams <***@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