summaryrefslogtreecommitdiff
path: root/Master
diff options
context:
space:
mode:
authorReinhard Kotucha <reinhard.kotucha@web.de>2007-12-09 00:07:28 +0000
committerReinhard Kotucha <reinhard.kotucha@web.de>2007-12-09 00:07:28 +0000
commit06d1699d30f4eaed1cbaf4166d182472ebc346e6 (patch)
treec19f6389389896396fad4202c446d9bea0bd66cb /Master
parent5b3c063193c175454a9aafc06c5dd0130de71d9e (diff)
TLPOBJ.pm: fixed long standing bugs.
git-svn-id: svn://tug.org/texlive/trunk@5731 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master')
-rw-r--r--Master/tlpkg/TeXLive/TLPOBJ.pm6
1 files changed, 3 insertions, 3 deletions
diff --git a/Master/tlpkg/TeXLive/TLPOBJ.pm b/Master/tlpkg/TeXLive/TLPOBJ.pm
index 5709cd9bf1a..ee2608a05e6 100644
--- a/Master/tlpkg/TeXLive/TLPOBJ.pm
+++ b/Master/tlpkg/TeXLive/TLPOBJ.pm
@@ -535,12 +535,12 @@ sub make_container {
}
# load Cwd only if necessary ...
require Cwd;
- my $cwd = &getcwd;
+ my $cwd = &Cwd::getcwd;
if ("$destdir" !~ m@^/@) {
# we have an relative containerdir, so we have to make it absolute
$destdir = "$cwd/$destdir";
}
- &mkpath("$destdir") if (! -d "$destdir");
+ &TeXLive::TLUtils::mkdirhier("$destdir");
chdir($instroot);
# in the relative case we have to chdir to the respective tltree
# and put the tlpobj into the root!
@@ -551,7 +551,7 @@ sub make_container {
# we add the .tlpobj into the .tlpobj directory
my $removetlpobjdir = 0;
if (! -d "$tlpobjdir") {
- &mkpath("$tlpobjdir");
+ &TeXLive::TLUtils::mkdirhier("$tlpobjdir");
$removetlpobjdir = 1;
}
open(TMP,">$tlpobjdir/$self->{'name'}.tlpobj") or die "Cannot create $tlpobjdir/$self->{'name'}.tlpobj";