[PATCH] gnu: libarchive: fix issue 696 in v.3.2.1

[csanchezdll@gmail.com (Carlos Sánchez de La Lama)]

Pull request #807 has been made upstream, this fixes Issue 696 on GUIX side
until a new it is fixed on a libarchive release.

* gnu/packages/patches/libarchive-issue-696.patch: New file.
* gnu/local.mk: Register patch.
* gnu/packages/backup.scm (libarchive): Add patch.
(libarchive/fixed): Inherit patches from libarchive.
---
 gnu/local.mk                                    |  1 +
 gnu/packages/backup.scm                         | 15 +++++---
 gnu/packages/patches/libarchive-issue-696.patch | 51 +++++++++++++++++++++++++
 3 files changed, 61 insertions(+), 6 deletions(-)
 create mode 100644 gnu/packages/patches/libarchive-issue-696.patch

diff --git a/gnu/local.mk b/gnu/local.mk
index 5226b49..c887d0f 100644
--- a/gnu/local.mk
+++ b/gnu/local.mk
@@ -619,6 +619,7 @@ dist_patch_DATA =						\
   %D%/packages/patches/libarchive-7zip-heap-overflow.patch	\
   %D%/packages/patches/libarchive-fix-symlink-check.patch	\
   %D%/packages/patches/libarchive-fix-filesystem-attacks.patch	\
+  %D%/packages/patches/libarchive-issue-696.patch		\
   %D%/packages/patches/libarchive-safe_fprintf-buffer-overflow.patch	\
   %D%/packages/patches/libbonobo-activation-test-race.patch	\
   %D%/packages/patches/libcanberra-sound-theme-freedesktop.patch \
diff --git a/gnu/packages/backup.scm b/gnu/packages/backup.scm
index 797c06e..9f4d36b 100644
--- a/gnu/packages/backup.scm
+++ b/gnu/packages/backup.scm
@@ -181,7 +181,8 @@ backups (called chunks) to allow easy burning to CD/DVD.")
                            version ".tar.gz"))
        (sha256
         (base32
-         "1lngng84k1kkljl74q0cdqc3s82vn2kimfm02dgm4d6m7x71mvkj"))))
+         "1lngng84k1kkljl74q0cdqc3s82vn2kimfm02dgm4d6m7x71mvkj"))
+       (patches (search-patches "libarchive-issue-696.patch"))))
     (build-system gnu-build-system)
     ;; TODO: Add -L/path/to/nettle in libarchive.pc.
     (inputs
@@ -233,11 +234,13 @@ random access nor for in-place modification.")
     (inherit libarchive)
     (source (origin
               (inherit (package-source libarchive))
-              (patches (search-patches
-                         "libarchive-7zip-heap-overflow.patch"
-                         "libarchive-fix-symlink-check.patch"
-                         "libarchive-fix-filesystem-attacks.patch"
-                         "libarchive-safe_fprintf-buffer-overflow.patch"))))))
+              (patches (append
+			(origin-patches (package-source libarchive))
+			(search-patches
+			 "libarchive-7zip-heap-overflow.patch"
+			 "libarchive-fix-symlink-check.patch"
+			 "libarchive-fix-filesystem-attacks.patch"
+			 "libarchive-safe_fprintf-buffer-overflow.patch")))))))
 
 (define-public rdup
   (package
diff --git a/gnu/packages/patches/libarchive-issue-696.patch b/gnu/packages/patches/libarchive-issue-696.patch
new file mode 100644
index 0000000..0fafacf
--- /dev/null
+++ b/gnu/packages/patches/libarchive-issue-696.patch
@@ -0,0 +1,51 @@
+From ba1665ee3d1c593c5baf9264cd5c5250eb0c515f Mon Sep 17 00:00:00 2001
+From: =?UTF-8?q?Carlos=20S=C3=A1nchez=20de=20La=20Lama?=
+ <csanchezdll@gmail.com>
+Date: Wed, 19 Oct 2016 09:12:18 +0200
+Subject: [PATCH] Issue 696: ppc64le mache ckech failure
+
+This issue is not ppc64le specific. I have experienced on my
+4.4.22-gnu #1 SMP 1 i686 GNU/Linux. Might be dependant on kernel
+version and/or machine load. POSIX says errors after posix_spawnp
+returns can be signaled by child exitting with an 127 exit code.
+---
+ cpio/test/test_option_lz4.c | 7 +++++++
+ tar/test/test_option_lz4.c  | 7 +++++++
+ 2 files changed, 14 insertions(+)
+
+diff --git a/cpio/test/test_option_lz4.c b/cpio/test/test_option_lz4.c
+index d430ac7..afd683d 100644
+--- a/cpio/test/test_option_lz4.c
++++ b/cpio/test/test_option_lz4.c
+@@ -63,6 +63,13 @@ DEFINE_TEST(test_option_lz4)
+ 			    "but no such program is available on this system.");
+ 			return;
+ 		}
++		/* On some systems the error won't be detected until closing
++		   time, by a 127 exit error returned by waitpid. */
++		if (strstr(p, "Error closing") != NULL && !canLz4()) {
++			skipping("This version of bsdcpio uses an external lz4 program "
++			    "but no such program is available on this system.");
++			return;
++		}
+ 		failure("--lz4 option is broken: %s", p);
+ 		assertEqualInt(r, 0);
+ 		return;
+diff --git a/tar/test/test_option_lz4.c b/tar/test/test_option_lz4.c
+index 5dc9452..01ca6bb 100644
+--- a/tar/test/test_option_lz4.c
++++ b/tar/test/test_option_lz4.c
+@@ -63,6 +63,13 @@ DEFINE_TEST(test_option_lz4)
+ 			    "but no such program is available on this system.");
+ 			return;
+ 		}
++		/* On some systems the error won't be detected until closing
++		   time, by a 127 exit error returned by waitpid. */
++		if (strstr(p, "Error closing") != NULL && !canLz4()) {
++			skipping("This version of bsdcpio uses an external lz4 program "
++			    "but no such program is available on this system.");
++			return;
++		}
+ 		failure("--lz4 option is broken: %s", p);
+ 		assertEqualInt(r, 0);
+ 		return;
-- 
2.9.2