[Module-build-checkins] Module-Build/lib/Module/Build Base.pm,1.532,1.533

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

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

Modified Files:
	Base.pm 
Log Message:
The glob() function under perl 5.005 sometimes return undef where we expect it to return the argument unmodified.

Index: Base.pm
===================================================================
RCS file: /cvsroot/module-build/Module-Build/lib/Module/Build/Base.pm,v
retrieving revision 1.532
retrieving revision 1.533
diff -u -d -r1.532 -r1.533
--- Base.pm	1 Dec 2005 08:20:16 -0000	1.532
+++ Base.pm	1 Dec 2005 08:48:10 -0000	1.533
@@ -1465,9 +1465,9 @@
 sub _detildefy {
     my $arg = shift;
 
-    ($arg) = glob($arg) if $arg =~ /^~/;
+    my($new_arg) = glob($arg) if $arg =~ /^~/;
 
-    return $arg;
+    return defined($new_arg) ? $new_arg : $arg;
 }