From 650e0f2731a5bb56f608ca9ea41f84217a17f7fb5377ad01b54a7a1fd19634e7 Mon Sep 17 00:00:00 2001
From: Stephan Kulow <coolo@suse.com>
Date: Wed, 30 Sep 2015 04:34:06 +0000
Subject: [PATCH] Accepting request 334882 from
 home:oertel:branches:devel:languages:perl

- add patch Exception-Base-sprintf.patch from github to fix
  build with perl-5.22

OBS-URL: https://build.opensuse.org/request/show/334882
OBS-URL: https://build.opensuse.org/package/show/devel:languages:perl/perl-Exception-Base?expand=0&rev=6
---
 Exception-Base-sprintf.patch | 29 +++++++++++++++++++++++++++++
 perl-Exception-Base.changes  |  6 ++++++
 perl-Exception-Base.spec     |  4 +++-
 3 files changed, 38 insertions(+), 1 deletion(-)
 create mode 100644 Exception-Base-sprintf.patch

diff --git a/Exception-Base-sprintf.patch b/Exception-Base-sprintf.patch
new file mode 100644
index 0000000..0a9b7c7
--- /dev/null
+++ b/Exception-Base-sprintf.patch
@@ -0,0 +1,29 @@
+--- lib/Exception/Base.pm
++++ lib/Exception/Base.pm
+@@ -1362,7 +1362,7 @@
+                     local $_ = ref $self->{$key} eq 'ARRAY'
+                                ? sprintf(
+                                      @{$self->{$key}}[0],
+-                                     @{$self->{$key}}[1..@{$self->{$key}}]
++                                     @{$self->{$key}}[1..@{$self->{$key}}-1]
+                                  )
+                                : $self->{$key};
+                     if (ref $arrval eq 'CODE') {
+@@ -1393,7 +1393,7 @@
+             local $_ = ref $self->{$key} eq 'ARRAY'
+                        ? sprintf(
+                              @{$self->{$key}}[0],
+-                             @{$self->{$key}}[1..@{$self->{$key}}]
++                             @{$self->{$key}}[1..@{$self->{$key}}-1]
+                          )
+                        : $self->{$key};
+ 
+@@ -1613,7 +1613,7 @@
+     my ($self) = @_;
+ 
+     return map { ref $_ eq 'ARRAY'
+-                 ? sprintf(@$_[0], @$_[1..@$_])
++                 ? sprintf(@$_[0], @$_[1..@$_-1])
+                  : $_ }
+            grep { defined $_ and (ref $_ or $_ ne '') }
+            map { $self->{$_} }
diff --git a/perl-Exception-Base.changes b/perl-Exception-Base.changes
index b8e2b1d..2e091d3 100644
--- a/perl-Exception-Base.changes
+++ b/perl-Exception-Base.changes
@@ -1,3 +1,9 @@
+-------------------------------------------------------------------
+Wed Sep 30 01:29:09 CEST 2015 - ro@suse.de
+
+- add patch Exception-Base-sprintf.patch from github to fix
+  build with perl-5.22 
+
 -------------------------------------------------------------------
 Sun Jun 16 06:53:47 UTC 2013 - coolo@suse.com
 
diff --git a/perl-Exception-Base.spec b/perl-Exception-Base.spec
index b72709b..ef7cf2f 100644
--- a/perl-Exception-Base.spec
+++ b/perl-Exception-Base.spec
@@ -1,7 +1,7 @@
 #
 # spec file for package perl-Exception-Base
 #
-# Copyright (c) 2013 SUSE LINUX Products GmbH, Nuernberg, Germany.
+# Copyright (c) 2015 SUSE LINUX GmbH, Nuernberg, Germany.
 #
 # All modifications and additions to the file contributed by third parties
 # remain the property of their copyright owners, unless otherwise agreed
@@ -25,6 +25,7 @@ License:        Artistic-1.0 or GPL-1.0+
 Group:          Development/Libraries/Perl
 Url:            http://search.cpan.org/dist/Exception-Base/
 Source:         http://www.cpan.org/authors/id/D/DE/DEXTER/%{cpan_name}-%{version}.tar.gz
+Patch0:         Exception-Base-sprintf.patch
 BuildArch:      noarch
 BuildRoot:      %{_tmppath}/%{name}-%{version}-build
 BuildRequires:  perl
@@ -121,6 +122,7 @@ The features of 'Exception::Base':
 
 %prep
 %setup -q -n %{cpan_name}-%{version}
+%patch0
 
 %build
 %{__perl} Build.PL installdirs=vendor