diff options
Diffstat (limited to 'Master/tlpkg/bin/tl-update-containers')
-rwxr-xr-x | Master/tlpkg/bin/tl-update-containers | 21 |
1 files changed, 15 insertions, 6 deletions
diff --git a/Master/tlpkg/bin/tl-update-containers b/Master/tlpkg/bin/tl-update-containers index 2b447b02018..caa47470a16 100755 --- a/Master/tlpkg/bin/tl-update-containers +++ b/Master/tlpkg/bin/tl-update-containers @@ -151,32 +151,41 @@ sub main my $objsrc = $obj->srcfiles_package; $objcopy->clear_srcfiles; if ($objsrc) { - my $s = $objsrc->make_container($type, $Master, $opt_containerdir, - "$pkg.source", $opt_relative); + my ($s,$m) = $objsrc->make_container($type, $Master, $opt_containerdir, + "$pkg.source", $opt_relative); if ($s > 0) { # something was created # important, we have to add it to the original $obj $obj->srccontainersize($s); } + if ($m ne "") { + $obj->srccontainermd5($m); + } } } if ($docsplit) { my $objdoc = $obj->docfiles_package; $objcopy->clear_docfiles; if ($objdoc) { - my $s = $objdoc->make_container($type, $Master, $opt_containerdir, - "$pkg.doc", $opt_relative); + my ($s,$m) = $objdoc->make_container($type, $Master, $opt_containerdir, + "$pkg.doc", $opt_relative); if ($s > 0) { # something was created $obj->doccontainersize($s); } + if ($m ne "") { + $obj->doccontainermd5($m); + } } } - my $s = $objcopy->make_container($type, $Master, $opt_containerdir, - $pkg, $opt_relative); + my ($s,$m) = $objcopy->make_container($type, $Master, $opt_containerdir, + $pkg, $opt_relative); if ($s > 0) { $obj->containersize($s); } + if ($m ne "") { + $obj->containermd5($m); + } # add the updated (or new) TLPOBJ to NET TLPDB # that way the other container sizes are not destroyed $nettlpdb->add_tlpobj($obj); |