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 : {};
|
