[Module-build-checkins] Module-Build/lib/Module/Build Base.pm,1.442,1.443

[Michael G S. <sc...@us...>]

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

Modified Files:
	Base.pm 
Log Message:
glob() must be called in list context or else it acts like an iterator and
multiple calls to the same glob() can produce unexpected results.


Index: Base.pm
===================================================================
RCS file: /cvsroot/module-build/Module-Build/lib/Module/Build/Base.pm,v
retrieving revision 1.442
retrieving revision 1.443
diff -u -d -r1.442 -r1.443
--- Base.pm	23 Jun 2005 02:26:42 -0000	1.442
+++ Base.pm	23 Jun 2005 02:44:52 -0000	1.443
@@ -1273,7 +1273,6 @@
     }
   }
 
-  
   if ($args{makefile_env_macros}) {
     require Module::Build::Compat;
     %args = (%args, Module::Build::Compat->makefile_to_build_macros);
@@ -1286,7 +1285,9 @@
 sub _detildefy {
     my $arg = shift;
 
-    return $arg =~ /^~/ ? glob($arg) : $arg;
+    ($arg) = $arg =~ /^~/ ? glob($arg) : $arg;
+
+    return $arg;
 }