[libmail-mbox-messageparser-perl] 01/08: debian/patches/xz-support.patch: Add support for XZ-compressed mailboxes. (Closes: #770077)

[gregor herrmann]

This is an automated email from the git hooks/post-receive script.

gregoa pushed a commit to branch master
in repository libmail-mbox-messageparser-perl.

commit f84df6b4de77c3c7c6d5616380c0d0775d142f58
Author: Lucas Nussbaum <lucas at debian.org>
Date:   Thu Feb 12 17:24:08 2015 +0100

    debian/patches/xz-support.patch: Add support for XZ-compressed mailboxes. (Closes: #770077)
---
 debian/changelog                |  4 ++++
 debian/patches/series           |  1 +
 debian/patches/xz-support.patch | 44 +++++++++++++++++++++++++++++++++++++++++
 3 files changed, 49 insertions(+)

diff --git a/debian/changelog b/debian/changelog
index a1c7b13..d2d649b 100644
--- a/debian/changelog
+++ b/debian/changelog
@@ -17,6 +17,10 @@ libmail-mbox-messageparser-perl (1.5002-3) UNRELEASED; urgency=low
   [ Salvatore Bonaccorso ]
   * Update Vcs-Browser URL to cgit web frontend
 
+  [ Lucas Nussbaum ]
+  * debian/patches/xz-support.patch: Add support for XZ-compressed mailboxes.
+    (Closes: #770077)
+
  -- Ansgar Burchardt <ansgar at debian.org>  Mon, 01 Nov 2010 11:16:56 +0100
 
 libmail-mbox-messageparser-perl (1.5002-2) unstable; urgency=low
diff --git a/debian/patches/series b/debian/patches/series
index b8d2039..b8d2355 100644
--- a/debian/patches/series
+++ b/debian/patches/series
@@ -1,3 +1,4 @@
 paths.patch
 fix-pod-errors.patch
 warnings.patch
+xz-support.patch
diff --git a/debian/patches/xz-support.patch b/debian/patches/xz-support.patch
new file mode 100644
index 0000000..a3997e0
--- /dev/null
+++ b/debian/patches/xz-support.patch
@@ -0,0 +1,44 @@
+Description: Add support for XZ-compressed mailboxes
+Origin: https://rt.cpan.org/Public/Bug/Display.html?id=68286
+Bug-Debian: https://bugs.debian.org/770077
+Bug: https://rt.cpan.org/Public/Bug/Display.html?id=68286
+
+--- a/lib/Mail/Mbox/MessageParser/Config.pm
++++ b/lib/Mail/Mbox/MessageParser/Config.pm
+@@ -13,6 +13,7 @@ $VERSION = sprintf "%d.%02d%02d", q/0.1.
+     'diff' => '/usr/bin/diff',
+     'grep' => '/bin/grep',
+     'gzip' => '/bin/gzip',
++    'xz' => '/usr/bin/xz',
+   },
+ 
+   'max_testchar_buffer_size' => 1048576,
+--- a/lib/Mail/Mbox/MessageParser.pm
++++ b/lib/Mail/Mbox/MessageParser.pm
+@@ -390,6 +390,7 @@ sub _GET_FILE_TYPE
+   # See "magic" on unix systems for details on how to identify file types
+   return 'bzip2' if substr($test_chars, 0, 3) eq 'BZh';
+   return 'bzip' if substr($test_chars, 0, 2) eq 'BZ';
++  return 'xz' if substr($test_chars, 1, 4) eq '7zXZ';
+ #  return 'zip' if substr($test_chars, 0, 2) eq 'PK' &&
+ #    ord(substr($test_chars,3,1)) == 0003 && ord(substr($test_chars,4,1)) == 0004;
+   return 'gzip' if
+@@ -483,7 +484,7 @@ sub _IS_COMPRESSED_TYPE
+   
+   local $" = '|';
+ 
+-  my @types = qw( gzip bzip bzip2 compress );
++  my @types = qw( gzip bzip bzip2 xz compress );
+   my $file_type_pattern = "(@types)";
+ 
+   return $file_type =~ /^$file_type_pattern$/;
+--- a/Makefile.PL
++++ b/Makefile.PL
+@@ -55,6 +55,7 @@ sub Configure_Programs
+                                    numbers => '[2.1,)', },
+                       },
+                     },
++      'xz'       => { default => 'xz', argname => 'XZ' },
+       'gzip'     => { default => 'gzip', argname => 'GZIP' },
+       'bzip'     => { default => 'bzip2', argname => 'BZIP',
+                       types => {

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libmail-mbox-messageparser-perl.git