summaryrefslogtreecommitdiff
path: root/Build/source/utils/biber
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2012-05-25 16:52:42 +0000
committerKarl Berry <karl@freefriends.org>2012-05-25 16:52:42 +0000
commit5e1a34eae5e178dc139b79f533a3f302bcb7513e (patch)
tree283b70126e789195ddaaf47f8589a77393b6e343 /Build/source/utils/biber
parent80a3f9ceada17281f64adee3d4633734dd1cd9d7 (diff)
consistency
git-svn-id: svn://tug.org/texlive/trunk@26656 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Build/source/utils/biber')
-rw-r--r--Build/source/utils/biber/TeXLive/TLUtils.pm26
1 files changed, 14 insertions, 12 deletions
diff --git a/Build/source/utils/biber/TeXLive/TLUtils.pm b/Build/source/utils/biber/TeXLive/TLUtils.pm
index e677c4da73e..da15f2f8a48 100644
--- a/Build/source/utils/biber/TeXLive/TLUtils.pm
+++ b/Build/source/utils/biber/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";
}