blob: f90cdf8d4bbc1b279acedef4a27182b63e602866 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
$NetBSD: patch-dist_Carp_lib_Carp.pm,v 1.1 2016/06/08 17:39:30 he Exp $
Apply workaround from https://rt.cpan.org/Public/Bug/Display.html?id=72467
--- dist/Carp/lib/Carp.pm.orig 2016-04-06 12:31:16.000000000 +0000
+++ dist/Carp/lib/Carp.pm
@@ -226,7 +226,11 @@ sub caller_info {
= "** Incomplete caller override detected$where; \@DB::args were not set **";
}
else {
- @args = @DB::args;
+ @args = map {
+ local $@;
+ my $tmp = eval { Carp::format_arg($_) };
+ defined($tmp) ? $tmp : 'unknown';
+ } @DB::args;
my $overflow;
if ( $MaxArgNums and @args > $MaxArgNums )
{ # More than we want to show?
|