forked from pool/perl-Exception-Base
650e0f2731
- 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
30 lines
1.2 KiB
Diff
30 lines
1.2 KiB
Diff
--- 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->{$_} }
|