|
 |
81878c7 |
From 7b5bfc02532e5a275fadc43beb1d7f9a0ef3fdb8 Mon Sep 17 00:00:00 2001
|
|
|
81878c7 |
From: Jitka Plesnikova <jplesnik@redhat.com>
|
|
|
81878c7 |
Date: Tue, 16 May 2023 12:41:10 +0200
|
|
|
81878c7 |
Subject: [PATCH] Upgrade to 1.54
|
|
|
81878c7 |
|
|
|
81878c7 |
---
|
|
|
81878c7 |
lib/Carp.pm | 12 ++++++------
|
|
|
81878c7 |
lib/Carp/Heavy.pm | 2 +-
|
|
|
81878c7 |
2 files changed, 7 insertions(+), 7 deletions(-)
|
|
|
81878c7 |
|
|
|
81878c7 |
diff --git a/lib/Carp.pm b/lib/Carp.pm
|
|
|
81878c7 |
index df563d0..20b9708 100644
|
|
|
81878c7 |
--- a/lib/Carp.pm
|
|
|
81878c7 |
+++ b/lib/Carp.pm
|
|
|
81878c7 |
@@ -179,7 +179,7 @@ BEGIN {
|
|
|
81878c7 |
? do { require "overload.pm"; _fetch_sub overload => 'mycan' }
|
|
|
81878c7 |
: \&UNIVERSAL::can;
|
|
|
81878c7 |
|
|
|
81878c7 |
- # _blessed is either UNIVERAL::isa(...), or, in the presence of an
|
|
|
81878c7 |
+ # _blessed is either UNIVERSAL::isa(...), or, in the presence of an
|
|
|
81878c7 |
# override, a hideous, but fairly reliable, workaround.
|
|
|
81878c7 |
*_blessed = $isa
|
|
|
81878c7 |
? sub { &$isa($_[0], "UNIVERSAL") }
|
|
|
81878c7 |
@@ -211,7 +211,7 @@ BEGIN {
|
|
|
81878c7 |
}
|
|
|
81878c7 |
|
|
|
81878c7 |
|
|
|
81878c7 |
-our $VERSION = '1.52';
|
|
|
81878c7 |
+our $VERSION = '1.54';
|
|
|
81878c7 |
$VERSION =~ tr/_//d;
|
|
|
81878c7 |
|
|
|
81878c7 |
our $MaxEvalLen = 0;
|
|
|
81878c7 |
@@ -776,8 +776,8 @@ Carp - alternative warn and die for modules
|
|
|
81878c7 |
# cluck, longmess and shortmess not exported by default
|
|
|
81878c7 |
use Carp qw(cluck longmess shortmess);
|
|
|
81878c7 |
cluck "This is how we got here!"; # warn with stack backtrace
|
|
|
81878c7 |
- $long_message = longmess( "message from cluck() or confess()" );
|
|
|
81878c7 |
- $short_message = shortmess( "message from carp() or croak()" );
|
|
|
81878c7 |
+ my $long_message = longmess( "message from cluck() or confess()" );
|
|
|
81878c7 |
+ my $short_message = shortmess( "message from carp() or croak()" );
|
|
|
81878c7 |
|
|
|
81878c7 |
=head1 DESCRIPTION
|
|
|
81878c7 |
|
|
|
81878c7 |
@@ -802,7 +802,7 @@ Of course, C<Carp> can't guarantee the latter.
|
|
|
81878c7 |
|
|
|
81878c7 |
You can also alter the way the output and logic of C<Carp> works, by
|
|
|
81878c7 |
changing some global variables in the C<Carp> namespace. See the
|
|
|
81878c7 |
-section on C<GLOBAL VARIABLES> below.
|
|
|
81878c7 |
+section on L</GLOBAL VARIABLES> below.
|
|
|
81878c7 |
|
|
|
81878c7 |
Here is a more complete description of how C<carp> and C<croak> work.
|
|
|
81878c7 |
What they do is search the call-stack for a function call stack where
|
|
|
81878c7 |
@@ -868,7 +868,7 @@ or by including the string C<-MCarp=verbose> in the PERL5OPT
|
|
|
81878c7 |
environment variable.
|
|
|
81878c7 |
|
|
|
81878c7 |
Alternately, you can set the global variable C<$Carp::Verbose> to true.
|
|
|
81878c7 |
-See the C<GLOBAL VARIABLES> section below.
|
|
|
81878c7 |
+See the L</GLOBAL VARIABLES> section below.
|
|
|
81878c7 |
|
|
|
81878c7 |
=head2 Stack Trace formatting
|
|
|
81878c7 |
|
|
|
81878c7 |
diff --git a/lib/Carp/Heavy.pm b/lib/Carp/Heavy.pm
|
|
|
81878c7 |
index fdb3e52..043e345 100644
|
|
|
81878c7 |
--- a/lib/Carp/Heavy.pm
|
|
|
81878c7 |
+++ b/lib/Carp/Heavy.pm
|
|
|
81878c7 |
@@ -2,7 +2,7 @@ package Carp::Heavy;
|
|
|
81878c7 |
|
|
|
81878c7 |
use Carp ();
|
|
|
81878c7 |
|
|
|
81878c7 |
-our $VERSION = '1.52';
|
|
|
81878c7 |
+our $VERSION = '1.54';
|
|
|
81878c7 |
$VERSION =~ tr/_//d;
|
|
|
81878c7 |
|
|
|
81878c7 |
# Carp::Heavy was merged into Carp in version 1.12. Any mismatched versions
|
|
|
81878c7 |
--
|
|
|
81878c7 |
2.40.1
|
|
|
81878c7 |
|