From 3961588d4c3528bec9859b8800bea77552bb6011 Mon Sep 17 00:00:00 2001 From: Norbert Preining Date: Thu, 13 Aug 2009 20:30:54 +0000 Subject: # 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 --- Master/tlpkg/TeXLive/TLUtils.pm | 7 +++++++ 1 file changed, 7 insertions(+) (limited to 'Master/tlpkg/TeXLive') 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; -- cgit v1.2.3