Update of /cvsroot/module-build/Module-Build/lib/Module/Build/Platform
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv28318/lib/Module/Build/Platform
Modified Files:
Windows.pm
Log Message:
Read default commandline options from '$ENV{HOME}/.modulebuildrc' if it exists.
Index: Windows.pm
===================================================================
RCS file: /cvsroot/module-build/Module-Build/lib/Module/Build/Platform/Windows.pm,v
retrieving revision 1.21
retrieving revision 1.22
diff -u -d -r1.21 -r1.22
--- Windows.pm 6 Dec 2004 04:00:40 -0000 1.21
+++ Windows.pm 31 Mar 2005 04:48:20 -0000 1.22
@@ -76,7 +76,8 @@
# (mostly Randy), and there are a lot of regression tests, so we
# should feel free to adjust if desired.
- (my $self, local $_) = @_;
+ my ($self, @strings) = @_;
+ local $_ = join( ' ', map {s/\s+$//; $_} @strings );
return @$_ if defined() && UNIVERSAL::isa($_, 'ARRAY');
|
