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

[sunnavy at bestpractical.com]

Author: sunnavy
Date: Tue May 13 13:13:32 2008
New Revision: 12302

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

Log:
 r12349 at sunnavys-mb:  sunnavy | 2008-05-14 00:43:20 +0800
 use select method in Util


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 13:13:32 2008
@@ -145,11 +145,12 @@
         # cpan
         require CPAN;
         require CPAN::DistnameInfo;
-        open my $fh, '>', '/dev/null';
-        my $stdout = select $fh;
+
+        Shipwright::Util->select( 'null' );
 
         my $module = CPAN::Shell->expand( 'Module', $args{name} );
-        select $stdout;
+
+        Shipwright::Util->select( 'stdout' );
 
         my $info    = CPAN::DistnameInfo->new( $module->cpan_file );
         my $version = $info->version;