texlive[50427] Master/tlpkg/TeXLive/TLUtils.pm: Make mkdirhier
commits+siepo at tug.org
commits+siepo at tug.org
Sun Mar 17 21:11:17 CET 2019
Revision: 50427
http://tug.org/svn/texlive?view=revision&revision=50427
Author: siepo
Date: 2019-03-17 21:11:17 +0100 (Sun, 17 Mar 2019)
Log Message:
-----------
Make mkdirhier tolerate backslashes
Modified Paths:
--------------
trunk/Master/tlpkg/TeXLive/TLUtils.pm
Modified: trunk/Master/tlpkg/TeXLive/TLUtils.pm
===================================================================
--- trunk/Master/tlpkg/TeXLive/TLUtils.pm 2019-03-17 15:07:13 UTC (rev 50426)
+++ trunk/Master/tlpkg/TeXLive/TLUtils.pm 2019-03-17 20:11:17 UTC (rev 50427)
@@ -881,7 +881,7 @@
# 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 @@
} else {
if (! mkdir ($subdir)) {
$ret = 0;
- $reterror = "mkdir($subdir) failed: $!";
+ $reterror = "mkdir($subdir) failed for tree $tree: $!";
last;
}
}
More information about the tex-live-commits
mailing list