diff options
Diffstat (limited to 'Master/tlpkg/TeXLive/TLPOBJ.pm')
-rw-r--r-- | Master/tlpkg/TeXLive/TLPOBJ.pm | 11 |
1 files changed, 9 insertions, 2 deletions
diff --git a/Master/tlpkg/TeXLive/TLPOBJ.pm b/Master/tlpkg/TeXLive/TLPOBJ.pm index 5830be6ae9a..91a06c32a29 100644 --- a/Master/tlpkg/TeXLive/TLPOBJ.pm +++ b/Master/tlpkg/TeXLive/TLPOBJ.pm @@ -602,8 +602,9 @@ sub make_container { # overflow standard tar format and result in special things being # done. We don't want the GNU-specific special things. # + my $is_sys_container = ( $containername =~ /\.r[0-9]/ ); my @attrs - = $containername =~ /\.r[0-9]/ + = $is_sys_container ? () : ( "--owner", "0", "--group", "0", "--exclude", ".svn", "--format", "ustar" ); @@ -683,7 +684,13 @@ sub make_container { return (0, 0, ""); } my $size = (stat "$destdir/$containername") [7]; - my $checksum = TeXLive::TLCrypto::tlchecksum("$destdir/$containername"); + # + # if we are creating a system container, or there is a way to + # compute the checksums, do it + my $checksum = ""; + if ($is_sys_container || $::checksum_method) { + $checksum = TeXLive::TLCrypto::tlchecksum("$destdir/$containername"); + } # cleaning up unlink("$tlpobjdir/$self->{'name'}.tlpobj"); |