diff options
author | Norbert Preining <preining@logic.at> | 2007-12-08 07:25:54 +0000 |
---|---|---|
committer | Norbert Preining <preining@logic.at> | 2007-12-08 07:25:54 +0000 |
commit | 5d761430679afcc88432cbac796a66122d8be06c (patch) | |
tree | 9bf425d371533dfce433ce38023a59a872b93aad /Master/tlpkg/TeXLive/TLPDB.pm | |
parent | 1ee791118d4d673009da1f502c24d8ebcf78e0ae (diff) |
fix missing lib- dependencies in tlpsrc .... how stupid!
git-svn-id: svn://tug.org/texlive/trunk@5725 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/TeXLive/TLPDB.pm')
-rw-r--r-- | Master/tlpkg/TeXLive/TLPDB.pm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/Master/tlpkg/TeXLive/TLPDB.pm b/Master/tlpkg/TeXLive/TLPDB.pm index 1525e99334c..3aaaff8aded 100644 --- a/Master/tlpkg/TeXLive/TLPDB.pm +++ b/Master/tlpkg/TeXLive/TLPDB.pm @@ -44,7 +44,7 @@ C<TeXLive::TLPDB> -- A database of TeX Live Packages use TeXLive::TLConfig qw($CategoriesRegexp $DefaultCategory $InfraLocation $DatabaseName); -use TeXLive::TLUtils qw(dirname); +use TeXLive::TLUtils qw(dirname mkdirhier); use TeXLive::TLPOBJ; my $_listdir; @@ -169,6 +169,7 @@ as location. If the location is undefined, die. sub save { my $self = shift; my $path = "$self->{'root'}/$InfraLocation/$DatabaseName"; + mkdirhier("$self->{'root'}/$InfraLocation"); open(FOO,">$path") || die("Cannot open $path for writing: $!"); $self->writeout(\*FOO); close(FOO); |