diff options
| author | Karl Berry <karl@freefriends.org> | 2012-05-25 16:52:42 +0000 |
|---|---|---|
| committer | Karl Berry <karl@freefriends.org> | 2012-05-25 16:52:42 +0000 |
| commit | 5e1a34eae5e178dc139b79f533a3f302bcb7513e (patch) | |
| tree | 283b70126e789195ddaaf47f8589a77393b6e343 /Build/source/texk/tests | |
| parent | 80a3f9ceada17281f64adee3d4633734dd1cd9d7 (diff) | |
consistency
git-svn-id: svn://tug.org/texlive/trunk@26656 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Build/source/texk/tests')
| -rw-r--r-- | Build/source/texk/tests/TeXLive/TLUtils.pm | 26 |
1 files changed, 14 insertions, 12 deletions
diff --git a/Build/source/texk/tests/TeXLive/TLUtils.pm b/Build/source/texk/tests/TeXLive/TLUtils.pm index e677c4da73e..da15f2f8a48 100644 --- a/Build/source/texk/tests/TeXLive/TLUtils.pm +++ b/Build/source/texk/tests/TeXLive/TLUtils.pm @@ -1,11 +1,12 @@ +# $Id: TLUtils.pm 26615 2012-05-24 00:39:35Z karl $ # TeXLive::TLUtils.pm - the inevitable utilities for TeX Live. -# Copyright 2007, 2008, 2009, 2010, 2011 Norbert Preining, Reinhard Kotucha +# Copyright 2007-2012 Norbert Preining, Reinhard Kotucha # This file is licensed under the GNU General Public License version 2 # or any later version. package TeXLive::TLUtils; -my $svnrev = '$Revision: 26541 $'; +my $svnrev = '$Revision: 26615 $'; my $_modulerevision; if ($svnrev =~ m/: ([0-9]+) /) { $_modulerevision = $1; @@ -2583,7 +2584,7 @@ Generate a skeleton of empty directories in the C<TEXMFSYSVAR> tree. =cut sub make_var_skeleton { - my $prefix=shift; + my ($prefix) = @_; mkdirhier "$prefix/tex/generic/config"; mkdirhier "$prefix/fonts/map/dvipdfm/updmap"; @@ -2599,27 +2600,28 @@ sub make_var_skeleton { =item C<make_local_skeleton($prefix)> -Generate a skeleton of empty directories in the C<TEXMFLOCAL> tree -if C<TEXMFLOCAL> doesn't already exist. +Generate a skeleton of empty directories in the C<TEXMFLOCAL> tree, +unless C<TEXMFLOCAL> already exists. =cut sub make_local_skeleton { - my $prefix=shift; + my ($prefix) = @_; return if (-d $prefix); - mkdirhier "$prefix/tex/latex/local"; - mkdirhier "$prefix/tex/plain/local"; - mkdirhier "$prefix/dvips/local"; mkdirhier "$prefix/bibtex/bib/local"; mkdirhier "$prefix/bibtex/bst/local"; - mkdirhier "$prefix/fonts/tfm/local"; - mkdirhier "$prefix/fonts/vf/local"; + mkdirhier "$prefix/doc/local"; + mkdirhier "$prefix/dvips/local"; mkdirhier "$prefix/fonts/source/local"; + mkdirhier "$prefix/fonts/tfm/local"; mkdirhier "$prefix/fonts/type1/local"; + mkdirhier "$prefix/fonts/vf/local"; mkdirhier "$prefix/metapost/local"; - mkdirhier "$prefix/doc/local"; + mkdirhier "$prefix/tex/latex/local"; + mkdirhier "$prefix/tex/plain/local"; + mkdirhier "$prefix/tlpkg"; mkdirhier "$prefix/web2c"; } |