Accepting request 334898 from devel:languages:perl

1

OBS-URL: https://build.opensuse.org/request/show/334898
OBS-URL: https://build.opensuse.org/package/show/openSUSE:Factory/perl-Exception-Base?expand=0&rev=7

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->{$_} }

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
 

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