From 295f7fb33b9b51d201278d98cb356b6fc8c2baf3 Mon Sep 17 00:00:00 2001 From: David Golden Date: Sun, 20 Dec 2009 21:51:41 -0500 Subject: [PATCH] hotfix App::Cpan Suppresses uninitialized warnings and NullLogger output. Changes have already been submitted to upstream repos. --- cpan/CPAN/lib/App/Cpan.pm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/cpan/CPAN/lib/App/Cpan.pm b/cpan/CPAN/lib/App/Cpan.pm index bfa32e9..f290cc8 100644 --- a/cpan/CPAN/lib/App/Cpan.pm +++ b/cpan/CPAN/lib/App/Cpan.pm @@ -395,7 +395,7 @@ sub run package Local::Null::Logger; sub new { bless \ my $x, $_[0] } -sub AUTOLOAD { shift; print "NullLogger: ", @_, $/ } +sub AUTOLOAD { shift; print "NullLogger: ", @_, $/ if $ENV{CPAN_NULL_LOGGER} } sub DESTROY { 1 } } @@ -492,7 +492,7 @@ sub _hook_into_CPANpm_report *CPAN::Shell::myprint = sub { my($self,$what) = @_; - $scalar .= $what; + $scalar .= $what if defined $what; $self->print_ornamented($what, $CPAN::Config->{colorize_print}||'bold blue on_white', ); @@ -500,7 +500,7 @@ sub _hook_into_CPANpm_report *CPAN::Shell::mywarn = sub { my($self,$what) = @_; - $scalar .= $what; + $scalar .= $what if defined $what; $self->print_ornamented($what, $CPAN::Config->{colorize_warn}||'bold red on_white' ); -- 1.8.3.1