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

sunnavy at bestpractical.com sunnavy at bestpractical.com
Thu Feb 7 04:00:10 EST 2008


Author: sunnavy
Date: Thu Feb  7 04:00:09 2008
New Revision: 10756

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

Log:
tiny change

Modified: Shipwright/lib/Shipwright/Source/Base.pm
==============================================================================
--- Shipwright/lib/Shipwright/Source/Base.pm	(original)
+++ Shipwright/lib/Shipwright/Source/Base.pm	Thu Feb  7 04:00:09 2008
@@ -87,7 +87,7 @@
         elsif ( -e 'Makefile.PL' ) {
             Shipwright::Util->run( [ $^X, 'Makefile.PL' ] );
             my ($source) = grep { /PREREQ_PM/ } read_file('Makefile');
-            if ( $source =~ /({.*})/ ) {
+            if ( $source && $source =~ /({.*})/ ) {
                 my $eval .= '$require = ' . $1;
                 $eval =~ s/([\w:]+)=>/'$1'=>/g;
                 eval $eval or die "eval error: $@"; ## no critic



More information about the Bps-public-commit mailing list