diff options
author | Norbert Preining <preining@logic.at> | 2009-08-13 20:30:54 +0000 |
---|---|---|
committer | Norbert Preining <preining@logic.at> | 2009-08-13 20:30:54 +0000 |
commit | 3961588d4c3528bec9859b8800bea77552bb6011 (patch) | |
tree | b9e18371d32a46895dde908f35274c45bd51c1e5 /Master/tlpkg/TeXLive | |
parent | 2daf665832915d1dc6232d22d14e4240f2114661 (diff) |
# the following is necessary because on win32,
# abs_path("tl-portable")
# returns
# c:\tl test\...
# and not forward slashes, while, if there is already a forward /
# in the path, also the rest is done with forward slashes.
$abs_f =~ s!\\!/!g if win32();
git-svn-id: svn://tug.org/texlive/trunk@14652 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/TeXLive')
-rw-r--r-- | Master/tlpkg/TeXLive/TLUtils.pm | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/Master/tlpkg/TeXLive/TLUtils.pm b/Master/tlpkg/TeXLive/TLUtils.pm index 143f85affeb..af41e4d73b2 100644 --- a/Master/tlpkg/TeXLive/TLUtils.pm +++ b/Master/tlpkg/TeXLive/TLUtils.pm @@ -985,6 +985,13 @@ sub removed_dirs # what should we do with not existing entries???? next if (! -r "$f"); my $abs_f = Cwd::abs_path ($f); + # the following is necessary because on win32, + # abs_path("tl-portable") + # returns + # c:\tl test\... + # and not forward slashes, while, if there is already a forward / + # in the path, also the rest is done with forward slashes. + $abs_f =~ s!\\!/!g if win32(); if (!$abs_f) { warn ("oops, no abs_path($f) from " . `pwd`); next; |