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