From 7b6cf8396c9aa6314818a423c19acf04097a73ad Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Thu, 31 May 2012 18:40:30 +0000 Subject: accept /var/root too git-svn-id: svn://tug.org/texlive/trunk@26743 c570f23f-e606-0410-a88d-b1316a301751 --- Build/source/texk/tetex/updmap.pl | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'Build/source/texk/tetex/updmap.pl') diff --git a/Build/source/texk/tetex/updmap.pl b/Build/source/texk/tetex/updmap.pl index e042b517596..7dbc7ec4880 100755 --- a/Build/source/texk/tetex/updmap.pl +++ b/Build/source/texk/tetex/updmap.pl @@ -1879,8 +1879,8 @@ sub reset_root_home { # if $HOME isn't an existing directory, that's ok; TLU does this. if (defined($envhome) && (-d $envhome)) { # we want to avoid calling getpwuid as far as possible, so if - # $envhome is either / or /root we accept it straight ahead - if ($envhome eq "/" || $envhome eq "/root") { + # $envhome is one of some usual values we accept it without worrying. + if ($envhome =~ m,^(/|/root|/var/root)/*$, { return; } # $HOME is defined, check what is the home of root in reality -- cgit v1.2.3