diff options
Diffstat (limited to '1cb0ea6afd4bb76e5a1d759efe27ea0f18306a82.patch')
| -rw-r--r-- | 1cb0ea6afd4bb76e5a1d759efe27ea0f18306a82.patch | 29 |
1 files changed, 29 insertions, 0 deletions
diff --git a/1cb0ea6afd4bb76e5a1d759efe27ea0f18306a82.patch b/1cb0ea6afd4bb76e5a1d759efe27ea0f18306a82.patch new file mode 100644 index 000000000000..537075d1612f --- /dev/null +++ b/1cb0ea6afd4bb76e5a1d759efe27ea0f18306a82.patch @@ -0,0 +1,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->{$_} } |