diff options
Diffstat (limited to 'Master/tlpkg/bin/tl-update-containers')
-rwxr-xr-x | Master/tlpkg/bin/tl-update-containers | 17 |
1 files changed, 13 insertions, 4 deletions
diff --git a/Master/tlpkg/bin/tl-update-containers b/Master/tlpkg/bin/tl-update-containers index 651b477a810..bc90c0544e9 100755 --- a/Master/tlpkg/bin/tl-update-containers +++ b/Master/tlpkg/bin/tl-update-containers @@ -298,7 +298,10 @@ sub main { $objcopy->clear_srcfiles; if ($objsrc) { my ($s,$m) = $objsrc->make_container($type, $Master, - $opt_containerdir, "$pkg.source", $do_relative); + destdir => $opt_containerdir, + containername => "$pkg.source", + relative => $do_relative, + user => 0); if ($s > 0) { # something was created # important, we have to add it to the original $obj @@ -322,7 +325,10 @@ sub main { $objcopy->clear_docfiles; if ($objdoc) { my ($s,$m) = $objdoc->make_container($type, $Master, - $opt_containerdir, "$pkg.doc", $do_relative); + destdir => $opt_containerdir, + containername => "$pkg.doc", + relative => $do_relative, + user => 0); if ($s > 0) { # something was created $obj->doccontainersize($s); @@ -340,8 +346,11 @@ sub main { push @removecontainers, "$pkg.doc"; } if (!$opt_dry) { - my ($s,$m) = $objcopy->make_container($type, $Master, $opt_containerdir, - $pkg, $do_relative); + my ($s,$m) = $objcopy->make_container($type, $Master, + destdir => $opt_containerdir, + containername => $pkg, + relative => $do_relative, + user => 0); if ($s > 0) { $obj->containersize($s); } |