[Module-build-checkins] Module-Build/lib/Module/Build/Platform Windows.pm,1.21,1.22

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

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');