From 11a53b6201d9d72e812d953434dee4935d87a3d4db4adc35a2c8334e0a6600bd Mon Sep 17 00:00:00 2001 From: Stephan Kulow Date: Sun, 22 Nov 2015 06:50:45 +0000 Subject: [PATCH] - remove upstream Exception-Base-sprintf.patch OBS-URL: https://build.opensuse.org/package/show/devel:languages:perl/perl-Exception-Base?expand=0&rev=9 --- Exception-Base-sprintf.patch | 29 ----------------------------- perl-Exception-Base.changes | 1 + 2 files changed, 1 insertion(+), 29 deletions(-) delete mode 100644 Exception-Base-sprintf.patch diff --git a/Exception-Base-sprintf.patch b/Exception-Base-sprintf.patch deleted file mode 100644 index 0a9b7c7..0000000 --- a/Exception-Base-sprintf.patch +++ /dev/null @@ -1,29 +0,0 @@ ---- 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 92aca54..0f1622b 100644 --- a/perl-Exception-Base.changes +++ b/perl-Exception-Base.changes @@ -3,6 +3,7 @@ Fri Nov 20 09:32:52 UTC 2015 - coolo@suse.com - updated to 0.2501 see /usr/share/doc/packages/perl-Exception-Base/Changes +- remove upstream Exception-Base-sprintf.patch ------------------------------------------------------------------- Wed Sep 30 01:29:09 CEST 2015 - ro@suse.de