[Bps-public-commit] r10004 - in bpsbuilder/BPB/lib: BPB/Source

[sunnavy at bestpractical.com]

Author: sunnavy
Date: Wed Dec 19 08:06:33 2007
New Revision: 10004

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

Log:
added more checks

Modified: bpsbuilder/BPB/lib/BPB.pm
==============================================================================
--- bpsbuilder/BPB/lib/BPB.pm	(original)
+++ bpsbuilder/BPB/lib/BPB.pm	Wed Dec 19 08:06:33 2007
@@ -55,8 +55,10 @@
     $self->build( BPB::Build->new( %{ $self->config->name->{build} } ) );
 
     unshift @INC, File::Spec->catfile( $self->build->install_base, 'lib', 'perl5' );
-    for ( @{$self->build->extra_lib} ) {
-        unshift @INC, File::Spec->catfile( $self->build->install_base, $_ );
+    if ( $self->build->extra_lib ) {
+        for ( @{ $self->build->extra_lib } ) {
+            unshift @INC, File::Spec->catfile( $self->build->install_base, $_ );
+        }
     }
 
     return $self;

Modified: bpsbuilder/BPB/lib/BPB/Source/CPAN.pm
==============================================================================
--- bpsbuilder/BPB/lib/BPB/Source/CPAN.pm	(original)
+++ bpsbuilder/BPB/lib/BPB/Source/CPAN.pm	Wed Dec 19 08:06:33 2007
@@ -58,9 +58,11 @@
     my $self = shift;
     return if $self->source eq 'perl';    # don't expand perl it self;
 
-    for ( keys %{ $self->map } ) {
-        if ( $self->source =~ /$_/ ) {
-            $self->{source} = $self->map->{$_};
+    if ( $self->map ) {
+        for ( keys %{ $self->map } ) {
+            if ( $self->source =~ /$_/ ) {
+                $self->{source} = $self->map->{$_};
+            }
         }
     }