Hi Joachim,
On Mon, May 05, 2014 at 09:19:25AM +0200, Joachim Breitner wrote:
>
> That works as intended (by me ;-)), and as documented:
>
> --compression [ gzip | bzip2 | lzma | xz ]
> If --repack is used, or if the given file is a zip file,
> ensure that the resulting file is compressed using the
> given scheme. The default is gzip.
The attached patch (not yet fully) supports Z compression. It would
need also enabling this compression in
libdpkg-perl: /usr/share/perl5/Dpkg/Compression.pm
While it seems a quite rare case I'd consider it useful to support this
compression method as well.
Please tell me whether I should file a bug report.
Kind regards
Andreas.
--
http://fam-tille.de
diff --git a/Devscripts/Compression.pm b/Devscripts/Compression.pm
index 5cb08a2..8baa5ef 100644
--- a/Devscripts/Compression.pm
+++ b/Devscripts/Compression.pm
@@ -46,6 +46,7 @@ my %mime2comp = (
"application/bzip2 " => "bzip2",
"application/x-xz" => "xz",
"application/xz" => "xz",
+ "application/x-compress" => "Z",
);
sub compression_guess_from_file {
diff --git a/scripts/mk-origtargz.pl b/scripts/mk-origtargz.pl
index 112ea93..f71e59a 100755
--- a/scripts/mk-origtargz.pl
+++ b/scripts/mk-origtargz.pl
@@ -303,7 +303,8 @@ my $zip_regex = qr/\.(zip|jar)$/;
my $tar_regex = qr/\.(tar\.gz |tgz
|tar\.bz2 |tbz2?
|tar.lzma |tlz(?:ma?)?
- |tar.xz |txz)$/x;
+ |tar.xz |txz
+ |tar.Z)$/x;
my $is_zipfile = $upstream =~ $zip_regex;
my $is_tarfile = $upstream =~ $tar_regex;
_______________________________________________
devscripts-devel mailing list
[email protected]
http://lists.alioth.debian.org/cgi-bin/mailman/listinfo/devscripts-devel
