diff options
author | Reinhard Kotucha <reinhard.kotucha@web.de> | 2012-04-01 00:54:58 +0000 |
---|---|---|
committer | Reinhard Kotucha <reinhard.kotucha@web.de> | 2012-04-01 00:54:58 +0000 |
commit | 163981c32bcdcd087bdb7b2a3470afded4c4a29a (patch) | |
tree | 000fa5045fd4b8aeb8fdc218c7115fc1a491059e | |
parent | a7f3f25904531d7f61901735bf82b2b081432c09 (diff) |
make_local_skeleton: create skeleton only if texmf-local doesn't already exist.
added texmf-local/doc/local
git-svn-id: svn://tug.org/texlive/trunk@25812 c570f23f-e606-0410-a88d-b1316a301751
-rw-r--r-- | Master/tlpkg/TeXLive/TLUtils.pm | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/Master/tlpkg/TeXLive/TLUtils.pm b/Master/tlpkg/TeXLive/TLUtils.pm index 7769b9f33d8..6af3f1e4dbc 100644 --- a/Master/tlpkg/TeXLive/TLUtils.pm +++ b/Master/tlpkg/TeXLive/TLUtils.pm @@ -2498,13 +2498,16 @@ sub make_var_skeleton { =item C<make_local_skeleton($prefix)> -Generate a skeleton of empty directories in the C<TEXMFLOCAL> tree. +Generate a skeleton of empty directories in the C<TEXMFLOCAL> tree +if C<TEXMFLOCAL> doesn't already exist. =cut sub make_local_skeleton { my $prefix=shift; + return if (-d $prefix); + mkdirhier "$prefix/tex/latex/local"; mkdirhier "$prefix/tex/plain/local"; mkdirhier "$prefix/dvips/local"; @@ -2515,6 +2518,7 @@ sub make_local_skeleton { mkdirhier "$prefix/fonts/source/local"; mkdirhier "$prefix/fonts/type1/local"; mkdirhier "$prefix/metapost/local"; + mkdirhier "$prefix/doc/local"; mkdirhier "$prefix/web2c"; } |