[Bps-public-commit] r12297 - in Shipwright/trunk: lib/Shipwright/Source

[sunnavy at bestpractical.com]

Author: sunnavy
Date: Tue May 13 10:35:10 2008
New Revision: 12297

Modified:
   Shipwright/trunk/   (props changed)
   Shipwright/trunk/lib/Shipwright/Source/CPAN.pm

Log:
 r12337 at sunnavys-mb:  sunnavy | 2008-05-13 22:22:31 +0800
 double check we won't import perl when importing core modules by accident


Modified: Shipwright/trunk/lib/Shipwright/Source/CPAN.pm
==============================================================================
--- Shipwright/trunk/lib/Shipwright/Source/CPAN.pm	(original)
+++ Shipwright/trunk/lib/Shipwright/Source/CPAN.pm	Tue May 13 10:35:10 2008
@@ -61,6 +61,9 @@
           Shipwright::Source::Compressed->new( %$self, _no_update_url => 1 );
         $compressed->run(@_);
     }
+    else {
+        die 'invalid source: ' . $self->source;
+    }
 }
 
 sub _run {
@@ -118,6 +121,11 @@
 
     my $name = CPAN::DistnameInfo->new( $distribution->{ID} )->dist;
 
+
+    if ( $name eq 'perl' ) {
+        die 'perl itself contains ' . $self->source . ', will not process';
+    }
+
     $distribution->get;
 
     $self->name( 'cpan-' . $name );