[Bps-public-commit] r11092 - Shipwright/trunk/lib/Shipwright

[sunnavy at bestpractical.com]

Author: sunnavy
Date: Tue Mar 18 06:58:36 2008
New Revision: 11092

Modified:
   Shipwright/trunk/lib/Shipwright/Util.pm

Log:
tweak a bit

Modified: Shipwright/trunk/lib/Shipwright/Util.pm
==============================================================================
--- Shipwright/trunk/lib/Shipwright/Util.pm	(original)
+++ Shipwright/trunk/lib/Shipwright/Util.pm	Tue Mar 18 06:58:36 2008
@@ -4,7 +4,6 @@
 use strict;
 use Carp;
 use IPC::Run3;
-use UNIVERSAL::require;
 use File::Spec;
 our ( $SHIPWRIGHT_ROOT, $SHARE_ROOT );
 
@@ -61,7 +60,7 @@
         $log->error(
             'failed to run ' . join( ' ', @$cmd ) . " with exit number $?" );
 
-        die "something wrong :-(" unless $ignore_failure;
+        die "something wrong when execute @$cmd: $?" unless $ignore_failure;
     }
 
     return ( $out, $err );
@@ -96,7 +95,7 @@
 sub share_root {
     my $self = shift;
     
-    File::ShareDir->require;
+    require File::ShareDir;
     $SHARE_ROOT ||=  eval { File::Spec->rel2abs(
             File::ShareDir::module_dir('Shipwright') )};