summaryrefslogtreecommitdiff
path: root/Master/tlpkg/bin/tl-update-containers
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2008-06-30 16:37:31 +0000
committerNorbert Preining <preining@logic.at>2008-06-30 16:37:31 +0000
commita210df813ed206966a0f02b1e3ec47370d306c26 (patch)
treedc4d8501c7c1d9f69e7710366ddb56e7255cf5cf /Master/tlpkg/bin/tl-update-containers
parent18bb1e2c2cf25f1d0e33edb438a899f6a80cae02 (diff)
adding support for md5 sums
git-svn-id: svn://tug.org/texlive/trunk@9115 c570f23f-e606-0410-a88d-b1316a301751
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);