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

[sunnavy at bestpractical.com]

Author: sunnavy
Date: Sat Feb 21 04:59:42 2009
New Revision: 18507

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

Log:
 r20007 at sunnavys-mb:  sunnavy | 2009-02-21 17:57:27 +0800
 @sources can be empty


Modified: Shipwright/trunk/lib/Shipwright/Script/Import.pm
==============================================================================
--- Shipwright/trunk/lib/Shipwright/Script/Import.pm	(original)
+++ Shipwright/trunk/lib/Shipwright/Script/Import.pm	Sat Feb 21 04:59:42 2009
@@ -49,7 +49,7 @@
     my $source;
     $source = $sources[0];
     confess "--name and --as args are not supported when importing multiple sources"
-      if @sources != 1 && $self->name;
+      if @sources > 1 && $self->name;
 
     if ( $self->min_perl_version ) {
         require version;