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

sunnavy at bestpractical.com sunnavy at bestpractical.com
Sun Dec 30 11:52:32 EST 2007


Author: sunnavy
Date: Sun Dec 30 11:52:32 2007
New Revision: 10204

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

Log:
cleaned up

Modified: bpsbuilder/BPB/lib/BPB/Source/CPAN.pm
==============================================================================
--- bpsbuilder/BPB/lib/BPB/Source/CPAN.pm	(original)
+++ bpsbuilder/BPB/lib/BPB/Source/CPAN.pm	Sun Dec 30 11:52:32 2007
@@ -47,7 +47,7 @@
 
 sub run {
     my $self = shift;
-    $self->SUPER::run();
+    $self->_run;
     my $compressed = BPB::Source::Compressed->new(%$self);
     $compressed->run(@_);
 }
@@ -56,14 +56,6 @@
     my $self = shift;
     return if $self->source eq 'perl';    # don't expand perl it self;
 
-    if ( $self->map ) {
-        for ( keys %{ $self->map } ) {
-            if ( $self->source eq $_ ) {
-                $self->{source} = $self->map->{$_};
-            }
-        }
-    }
-
     my $module = CPAN::Shell->expand( 'Module', $self->source );
 
     croak 'invalid module name: ' . $self->source unless $module;



More information about the Bps-public-commit mailing list