diff options
Diffstat (limited to 'Master')
| -rw-r--r-- | Master/tlpkg/TeXLive/TLPOBJ.pm | 6 |
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"; |