diff options
| author | Norbert Preining <preining@logic.at> | 2010-01-13 12:47:11 +0000 |
|---|---|---|
| committer | Norbert Preining <preining@logic.at> | 2010-01-13 12:47:11 +0000 |
| commit | c0a4edcf62c16a86cea716ab1f1229d2d9c74ef7 (patch) | |
| tree | 6825b2df68925d0d740d048851338277474c0d9b /Master/tlpkg/TeXLive | |
| parent | 8ba40ebd376406a724913a18a951207e7d3dd2e5 (diff) | |
fix mkdir for UNC paths (from Tomek)
git-svn-id: svn://tug.org/texlive/trunk@16700 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/TeXLive')
| -rw-r--r-- | Master/tlpkg/TeXLive/TLUtils.pm | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/Master/tlpkg/TeXLive/TLUtils.pm b/Master/tlpkg/TeXLive/TLUtils.pm index 330bd27149d..0db99434dbf 100644 --- a/Master/tlpkg/TeXLive/TLUtils.pm +++ b/Master/tlpkg/TeXLive/TLUtils.pm @@ -597,6 +597,9 @@ sub mkdirhier { return if (-d "$tree"); my $subdir = ""; + # win32 is special as usual: we need to separate //servername/ part + # from the UNC path, since (! -d //servername/) tests true + $subdir = $& if ( win32() && ($tree =~ s!^//[^/]+/!!) ); @dirs = split (/\//, $tree); for my $dir (@dirs) { |