diff options
author | V3n3RiX <venerix@redcorelinux.org> | 2018-07-14 21:03:06 +0100 |
---|---|---|
committer | V3n3RiX <venerix@redcorelinux.org> | 2018-07-14 21:03:06 +0100 |
commit | 8376ef56580626e9c0f796d5b85b53a0a1c7d5f5 (patch) | |
tree | 7681bbd4e8b05407772df40a4bf04cbbc8afc3fa /app-arch/deb2targz/files | |
parent | 30a9caf154332f12ca60756e1b75d2f0e3e1822d (diff) |
gentoo resync : 14.07.2018
Diffstat (limited to 'app-arch/deb2targz/files')
-rw-r--r-- | app-arch/deb2targz/files/deb2targz-any-data.patch | 17 |
1 files changed, 17 insertions, 0 deletions
diff --git a/app-arch/deb2targz/files/deb2targz-any-data.patch b/app-arch/deb2targz/files/deb2targz-any-data.patch new file mode 100644 index 000000000000..c8c42308ce1c --- /dev/null +++ b/app-arch/deb2targz/files/deb2targz-any-data.patch @@ -0,0 +1,17 @@ +Support any/all compression formats for data.tar +--- deb2targz ++++ deb2targz +@@ -47,10 +47,11 @@ + ($header, $data) = ($data =~ /(.*?)\n(.*)/s); + my($name, $num1, $num2, $num3, $num4, $len) = split /\s+/, $header; + #print "header='$header'\n\tname='$name', len=$len\n"; +- if ($name eq "data.tar.gz") { ++ if ($name =~ /^data\.tar(.*)$/) { + # Found it ++ my $ext = $1; + $data = substr($data, 0, $len); +- $filename =~ s/\.deb$/.tar.gz/; ++ $filename =~ s/\.deb$/.tar$ext/; + my $fh = new IO::File(">$filename") + or die "can't write '$filename': $!"; + print $fh $data; |