[Module-build-checkins] Module-Build/lib/Module/Build Base.pm,1.403,1.404

[Randy W. S. <si...@us...>]

Update of /cvsroot/module-build/Module-Build/lib/Module/Build
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv32687/lib/Module/Build

Modified Files:
	Base.pm 
Log Message:
Guard against undefined values in read_modulebuildrc()

Index: Base.pm
===================================================================
RCS file: /cvsroot/module-build/Module-Build/lib/Module/Build/Base.pm,v
retrieving revision 1.403
retrieving revision 1.404
diff -u -d -r1.403 -r1.404
--- Base.pm	31 Mar 2005 06:03:08 -0000	1.403
+++ Base.pm	31 Mar 2005 08:14:04 -0000	1.404
@@ -1206,10 +1206,15 @@
 
   if ( $buffer ) { # anything left in $buffer ?
     my( $action, $options ) = split( /\s+/, $buffer, 2 );
-    $options{$action} .= $options . ' ';
+    $options{$action} .= $options . ' '; # merge if more than one line
   }
 
-  my @args = $self->split_like_shell( "$options{'*'} $options{$action}" );
+
+  my $cmdline .= join ' ', grep defined && length,
+                 map { exists( $options{$_} ) ? $options{$_} : '' }
+		 ( '*', $action );
+
+  my @args = $self->split_like_shell( $cmdline );
   my( $args ) = $self->read_args( @args );
 
   return defined( $args ) ? $args : {};