summaryrefslogtreecommitdiff
path: root/Master/tlpkg/TeXLive/TLPDB.pm
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2007-12-08 07:25:54 +0000
committerNorbert Preining <preining@logic.at>2007-12-08 07:25:54 +0000
commit5d761430679afcc88432cbac796a66122d8be06c (patch)
tree9bf425d371533dfce433ce38023a59a872b93aad /Master/tlpkg/TeXLive/TLPDB.pm
parent1ee791118d4d673009da1f502c24d8ebcf78e0ae (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.pm3
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);