diff options
Diffstat (limited to 'lang/perl5/patches/patch-dist_Carp_lib_Carp.pm')
| -rw-r--r-- | lang/perl5/patches/patch-dist_Carp_lib_Carp.pm | 19 |
1 files changed, 19 insertions, 0 deletions
diff --git a/lang/perl5/patches/patch-dist_Carp_lib_Carp.pm b/lang/perl5/patches/patch-dist_Carp_lib_Carp.pm new file mode 100644 index 00000000000..f90cdf8d4bb --- /dev/null +++ b/lang/perl5/patches/patch-dist_Carp_lib_Carp.pm @@ -0,0 +1,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? |