diff options
Diffstat (limited to 'Master/tlpkg/tlperl/lib/Module/Build/Platform/Unix.pm')
-rw-r--r-- | Master/tlpkg/tlperl/lib/Module/Build/Platform/Unix.pm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/Master/tlpkg/tlperl/lib/Module/Build/Platform/Unix.pm b/Master/tlpkg/tlperl/lib/Module/Build/Platform/Unix.pm index e3d7ff5b224..ec13ebea9be 100644 --- a/Master/tlpkg/tlperl/lib/Module/Build/Platform/Unix.pm +++ b/Master/tlpkg/tlperl/lib/Module/Build/Platform/Unix.pm @@ -2,7 +2,7 @@ package Module::Build::Platform::Unix; use strict; use vars qw($VERSION); -$VERSION = '0.4003'; +$VERSION = '0.4205'; $VERSION = eval $VERSION; use Module::Build::Base; @@ -43,8 +43,8 @@ sub _detildefy { my ($self, $value) = @_; $value =~ s[^~([^/]+)?(?=/|$)] # tilde with optional username [$1 ? - ((getpwnam $1)[7] || "~$1") : - ($ENV{HOME} || (getpwuid $>)[7]) + (eval{(getpwnam $1)[7]} || "~$1") : + ($ENV{HOME} || eval{(getpwuid $>)[7]} || glob("~")) ]ex; return $value; } |