diff options
author | Norbert Preining <preining@logic.at> | 2008-06-30 16:37:31 +0000 |
---|---|---|
committer | Norbert Preining <preining@logic.at> | 2008-06-30 16:37:31 +0000 |
commit | a210df813ed206966a0f02b1e3ec47370d306c26 (patch) | |
tree | dc4d8501c7c1d9f69e7710366ddb56e7255cf5cf /Master/tlpkg/bin/tl-update-containers | |
parent | 18bb1e2c2cf25f1d0e33edb438a899f6a80cae02 (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-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); |