From b3979cdc9564de8326f2c394724162b871805a28 Mon Sep 17 00:00:00 2001
From: Jitka Plesnikova <jplesnik@redhat.com>
Date: Jul 31 2014 13:28:23 +0000
Subject: Fix for RT#88257


---

diff --git a/Data-Structure-Util-0.15-Remove-failed-test-cases.patch b/Data-Structure-Util-0.15-Remove-failed-test-cases.patch
new file mode 100644
index 0000000..fe39d25
--- /dev/null
+++ b/Data-Structure-Util-0.15-Remove-failed-test-cases.patch
@@ -0,0 +1,21 @@
+diff -rup Data-Structure-Util-0.15-crimpK-orig/t/06signature.t Data-Structure-Util-0.15-crimpK/t/06signature.t
+--- Data-Structure-Util-0.15-crimpK-orig/t/06signature.t	2008-03-09 03:48:59.000000000 -0700
++++ Data-Structure-Util-0.15-crimpK/t/06signature.t	2013-09-01 17:11:26.000000000 -0700
+@@ -21,7 +21,7 @@ BEGIN {
+     }
+ }
+ 
+-use Test::More tests => 16;
++use Test::More tests => 14;
+ 
+ ok( 1, "we loaded fine..." );
+ 
+@@ -62,8 +62,6 @@ isnt( signature( $obj4 ), $sig4, "Signat
+ 
+ ok( signature(), "none" );
+ is( signature(), signature(), "empty list" );
+-ok( my $sigundef = signature( undef ), "none" );
+-isnt( $sigundef, signature( undef ), "none" );
+ 
+ # BELOW THIS LINE REQUIRES PERL 5.8.0 OR GREATER
+ SKIP: {
diff --git a/perl-Data-Structure-Util.spec b/perl-Data-Structure-Util.spec
index e3c1d4a..03eba05 100644
--- a/perl-Data-Structure-Util.spec
+++ b/perl-Data-Structure-Util.spec
@@ -1,11 +1,13 @@
 Name:           perl-Data-Structure-Util
 Version:        0.15
-Release:        16%{?dist}
+Release:        17%{?dist}
 Summary:        Change nature of data within a structure
 License:        GPL+ or Artistic
 Group:          Development/Libraries
 URL:            http://search.cpan.org/dist/Data-Structure-Util/
 Source0:        http://www.cpan.org/authors/id/A/AN/ANDYA/Data-Structure-Util-%{version}.tar.gz
+# Fix for RT#88257
+Patch0:         Data-Structure-Util-0.15-Remove-failed-test-cases.patch
 BuildRoot:      %{_tmppath}/%{name}-%{version}-%{release}-root-%(%{__id_u} -n)
 BuildRequires:  perl(ExtUtils::MakeMaker)
 
@@ -32,6 +34,7 @@ requested on each appropriate element.
 
 %prep
 %setup -q -n Data-Structure-Util-%{version}
+%patch0 -p1
 
 chmod 644 CHANGES README bin/packages.pl
 
@@ -67,6 +70,9 @@ rm -rf $RPM_BUILD_ROOT
 %{_mandir}/man3/*
 
 %changelog
+* Thu Jul 31 2014 Jitka Plesnikova <jplesnik@redhat.com> - 0.15-17
+- Remove test cases which failed for Perl 5.19.4 and higher (RT#88257)
+
 * Sat Jun 07 2014 Fedora Release Engineering <rel-eng@lists.fedoraproject.org> - 0.15-16
 - Rebuilt for https://fedoraproject.org/wiki/Fedora_21_Mass_Rebuild