[Bps-public-commit] r12306 - in Shipwright/trunk: lib/Shipwright/Script lib/Shipwright/Source

[sunnavy at bestpractical.com]

Author: sunnavy
Date: Tue May 13 14:09:54 2008
New Revision: 12306

Modified:
   Shipwright/trunk/   (props changed)
   Shipwright/trunk/lib/Shipwright/Script/List.pm
   Shipwright/trunk/lib/Shipwright/Source/CPAN.pm

Log:
 r12357 at sunnavys-mb:  sunnavy | 2008-05-14 02:01:23 +0800
 redirect cpan output to log file to clean the screen


Modified: Shipwright/trunk/lib/Shipwright/Script/List.pm
==============================================================================
--- Shipwright/trunk/lib/Shipwright/Script/List.pm	(original)
+++ Shipwright/trunk/lib/Shipwright/Script/List.pm	Tue May 13 14:09:54 2008
@@ -139,7 +139,7 @@
         require CPAN;
         require CPAN::DistnameInfo;
 
-        Shipwright::Util->select( 'null' );
+        Shipwright::Util->select( 'cpan' );
 
         my $module = CPAN::Shell->expand( 'Module', $args{name} );
 

Modified: Shipwright/trunk/lib/Shipwright/Source/CPAN.pm
==============================================================================
--- Shipwright/trunk/lib/Shipwright/Source/CPAN.pm	(original)
+++ Shipwright/trunk/lib/Shipwright/Source/CPAN.pm	Tue May 13 14:09:54 2008
@@ -72,6 +72,8 @@
 
     my ( $source, $distribution );
 
+    Shipwright::Util->select( 'cpan' );
+
     if ( $self->source =~ /\.tar\.gz$/ ) {
 
         # it's a disribution
@@ -128,6 +130,8 @@
 
     $distribution->get;
 
+    Shipwright::Util->select( 'stdout' );
+
     $self->name( 'cpan-' . $name );
     $self->_update_map( $self->source, 'cpan-' . $name );