summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorSiep Kroonenberg <siepo@cybercomm.nl>2019-03-17 20:11:17 +0000
committerSiep Kroonenberg <siepo@cybercomm.nl>2019-03-17 20:11:17 +0000
commit256f8bfa32f3e9134067457fc40c38ee02d01253 (patch)
treee4a74400e973b790a565dcf773da986e489e9c53
parent29254586667bfc03a5d175c77a20f99152285a40 (diff)
Make mkdirhier tolerate backslashes
git-svn-id: svn://tug.org/texlive/trunk@50427 c570f23f-e606-0410-a88d-b1316a301751
-rw-r--r--Master/tlpkg/TeXLive/TLUtils.pm4
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;
}
}