blob: 537075d1612f04cae22a506f8b9413c637bbaacc (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
|
--- orig/lib/Exception/Base.pm 2015-11-01 13:39:14.842319721 +0100
+++ patched/lib/Exception/Base.pm 2015-11-01 13:40:50.652316955 +0100
@@ -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->{$_} }
|