commit perl-Exception-Base for openSUSE:Factory

[h_root]

Hello community,

here is the log from the commit of package perl-Exception-Base for 
openSUSE:Factory checked in at 2015-10-06 13:24:48
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Comparing /work/SRC/openSUSE:Factory/perl-Exception-Base (Old)
 and      /work/SRC/openSUSE:Factory/.perl-Exception-Base.new (New)
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

Package is "perl-Exception-Base"

Changes:
--------
--- /work/SRC/openSUSE:Factory/perl-Exception-Base/perl-Exception-Base.changes  
2013-06-17 10:14:57.000000000 +0200
+++ 
/work/SRC/openSUSE:Factory/.perl-Exception-Base.new/perl-Exception-Base.changes 
    2015-10-06 13:24:51.000000000 +0200
@@ -1,0 +2,6 @@
+Wed Sep 30 01:29:09 CEST 2015 - r...@suse.de
+
+- add patch Exception-Base-sprintf.patch from github to fix
+  build with perl-5.22 
+
+-------------------------------------------------------------------

New:
----
  Exception-Base-sprintf.patch

++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

Other differences:
------------------
++++++ perl-Exception-Base.spec ++++++
--- /var/tmp/diff_new_pack.z7QMKJ/_old  2015-10-06 13:24:52.000000000 +0200
+++ /var/tmp/diff_new_pack.z7QMKJ/_new  2015-10-06 13:24:52.000000000 +0200
@@ -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 @@
 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 @@
 
 %prep
 %setup -q -n %{cpan_name}-%{version}
+%patch0
 
 %build
 %{__perl} Build.PL installdirs=vendor

++++++ Exception-Base-sprintf.patch ++++++
--- 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->{$_} }