perl/perl-Exception-Base
SHA256
8
0
Fork 0
forked from pool/perl-Exception-Base
Code Pull Requests Activity

- remove upstream Exception-Base-sprintf.patch

Browse Source 
OBS-URL: https://build.opensuse.org/package/show/devel:languages:perl/perl-Exception-Base?expand=0&rev=9
This commit is contained in:
Stephan Kulow
2015-11-22 06:50:45 +00:00
committed by Git OBS Bridge
parent 7318bf8246
commit 11a53b6201
2 changed files with 1 additions and 29 deletions
Download Patch File Download Diff File Expand all files Collapse all files

29
Exception-Base-sprintf.patch
View File

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

1
perl-Exception-Base.changes
View File

@@ -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