[Bps-public-commit] r10117 - bpsbuilder/BPB/lib/BPB/Source

[sunnavy at bestpractical.com]

Author: sunnavy
Date: Tue Dec 25 06:20:34 2007
New Revision: 10117

Modified:
   bpsbuilder/BPB/lib/BPB/Source/Base.pm
   bpsbuilder/BPB/lib/BPB/Source/CPAN.pm

Log:
sometimes eq is better then regex

Modified: bpsbuilder/BPB/lib/BPB/Source/Base.pm
==============================================================================
--- bpsbuilder/BPB/lib/BPB/Source/Base.pm	(original)
+++ bpsbuilder/BPB/lib/BPB/Source/Base.pm	Tue Dec 25 06:20:34 2007
@@ -100,7 +100,7 @@
             my $name = $map->{$module} || $module;
             $name =~ s/::/-/g;
 
-            unless ( grep { /^$name/ } @sources ) {
+            unless ( grep { $name eq $_ } @sources ) {
                 my $cpan = BPB::Source->new( %$self, source => $module );
                 $cpan->run();
             }

Modified: bpsbuilder/BPB/lib/BPB/Source/CPAN.pm
==============================================================================
--- bpsbuilder/BPB/lib/BPB/Source/CPAN.pm	(original)
+++ bpsbuilder/BPB/lib/BPB/Source/CPAN.pm	Tue Dec 25 06:20:34 2007
@@ -59,7 +59,7 @@
 
     if ( $self->map ) {
         for ( keys %{ $self->map } ) {
-            if ( $self->source =~ /$_/ ) {
+            if ( $self->source eq $_ ) {
                 $self->{source} = $self->map->{$_};
             }
         }