[Bps-public-commit] r10785 - Shipwright/lib/Shipwright/Source

[sunnavy at bestpractical.com]

Author: sunnavy
Date: Sun Feb 10 02:06:38 2008
New Revision: 10785

Modified:
   Shipwright/lib/Shipwright/Source/Base.pm

Log:
map.yml has all the dists info

Modified: Shipwright/lib/Shipwright/Source/Base.pm
==============================================================================
--- Shipwright/lib/Shipwright/Source/Base.pm	(original)
+++ Shipwright/lib/Shipwright/Source/Base.pm	Sun Feb 10 02:06:38 2008
@@ -36,6 +36,8 @@
         Shipwright::Util->run($_);
     }
     $self->_copy( %{ $args{copy} } ) if $args{copy};
+    $self->_make_maps( $self->name, $self->source )
+      unless $self->name =~ /^cpan-/;
 }
 
 # you should subclass this method.
@@ -254,7 +256,7 @@
 
     if ( $self->skip && defined $self->skip->{$module} ) {
         $self->log->warn("$module is skipped");
-        return 1 if $module =~ /$_/;
+        return 1;
     }
 
     return;