[Bps-public-commit] r9930 - in bpsbuilder/BPB: .

[sunnavy at bestpractical.com]

Author: sunnavy
Date: Thu Dec 13 09:19:56 2007
New Revision: 9930

Modified:
   bpsbuilder/BPB/   (props changed)
   bpsbuilder/BPB/lib/BPB/Script/Import.pm

Log:
 r25558 at sun-navys-macbook:  sunnavy | 2007-12-13 17:46:19 +0800
 tiny improvement


Modified: bpsbuilder/BPB/lib/BPB/Script/Import.pm
==============================================================================
--- bpsbuilder/BPB/lib/BPB/Script/Import.pm	(original)
+++ bpsbuilder/BPB/lib/BPB/Script/Import.pm	Thu Dec 13 09:19:56 2007
@@ -66,8 +66,7 @@
             my $dist = $map->{$module} || $module;
             $dist =~ s/::/-/g;
 
-            unless ( $imported{$dist} ) {
-                $imported{$dist}++;
+            unless ( $imported{$dist}++ ) {
                 my $s = ( grep { /^$dist/ } @sources )[0];
                 warn "we don't have $dist in source which is for "
                   . $self->source