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