summaryrefslogtreecommitdiff
path: root/Master/tlpkg/bin/tl-update-containers
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg/bin/tl-update-containers')
-rwxr-xr-xMaster/tlpkg/bin/tl-update-containers21
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);