diff options
author | Siep Kroonenberg <siepo@cybercomm.nl> | 2019-03-17 20:11:17 +0000 |
---|---|---|
committer | Siep Kroonenberg <siepo@cybercomm.nl> | 2019-03-17 20:11:17 +0000 |
commit | 256f8bfa32f3e9134067457fc40c38ee02d01253 (patch) | |
tree | e4a74400e973b790a565dcf773da986e489e9c53 /Master/tlpkg | |
parent | 29254586667bfc03a5d175c77a20f99152285a40 (diff) |
Make mkdirhier tolerate backslashes
git-svn-id: svn://tug.org/texlive/trunk@50427 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg')
-rw-r--r-- | Master/tlpkg/TeXLive/TLUtils.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Master/tlpkg/TeXLive/TLUtils.pm b/Master/tlpkg/TeXLive/TLUtils.pm index 311331b409f..45a1a6b6467 100644 --- a/Master/tlpkg/TeXLive/TLUtils.pm +++ b/Master/tlpkg/TeXLive/TLUtils.pm @@ -881,7 +881,7 @@ sub mkdirhier { # from the UNC path, since (! -d //servername/) tests true $subdir = $& if ( win32() && ($tree =~ s!^//[^/]+/!!) ); - @dirs = split (/\//, $tree); + @dirs = split (/[\/\\]/, $tree); for my $dir (@dirs) { $subdir .= "$dir/"; if (! -d $subdir) { @@ -894,7 +894,7 @@ sub mkdirhier { } else { if (! mkdir ($subdir)) { $ret = 0; - $reterror = "mkdir($subdir) failed: $!"; + $reterror = "mkdir($subdir) failed for tree $tree: $!"; last; } } |