diff options
author | Norbert Preining <norbert@preining.info> | 2021-04-02 03:20:54 +0000 |
---|---|---|
committer | Norbert Preining <norbert@preining.info> | 2021-04-02 03:20:54 +0000 |
commit | 3f173002d4a4a84e7d1fa5a74755fdd00d08a9c2 (patch) | |
tree | 5ed380344702de1f9ab53b68b6c3bcd6b8458087 /systems/texlive/tlnet/tlpkg/tlperl/lib/perl5db.pl | |
parent | f78ba658b3ecd56053fe0837a4404d0c6c16a707 (diff) |
CTAN sync 202104020320
Diffstat (limited to 'systems/texlive/tlnet/tlpkg/tlperl/lib/perl5db.pl')
-rw-r--r-- | systems/texlive/tlnet/tlpkg/tlperl/lib/perl5db.pl | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/systems/texlive/tlnet/tlpkg/tlperl/lib/perl5db.pl b/systems/texlive/tlnet/tlpkg/tlperl/lib/perl5db.pl index e8a29da134..69a9bb6e64 100644 --- a/systems/texlive/tlnet/tlpkg/tlperl/lib/perl5db.pl +++ b/systems/texlive/tlnet/tlpkg/tlperl/lib/perl5db.pl @@ -529,7 +529,7 @@ BEGIN { use vars qw($VERSION $header); # bump to X.XX in blead, only use X.XX_XX in maint -$VERSION = '1.55'; +$VERSION = '1.57'; $header = "perl5db.pl version $VERSION"; @@ -2293,7 +2293,7 @@ sub _DB__handle_restart_and_rerun_commands { # Change directory to the initial current working directory on # the script startup, so if the debugged program changed the # directory, then we will still be able to find the path to the - # the program. (perl 5 RT #121509 ). + # program. (perl 5 RT #121509 ). chdir ($_initial_cwd); my @args = ($cmd_cmd eq 'R' ? restart() : rerun($cmd_params)); @@ -5480,6 +5480,9 @@ Display the (nested) parentage of the module or object given. sub cmd_i { my $cmd = shift; my $line = shift; + + require mro; + foreach my $isa ( split( /\s+/, $line ) ) { $evalarg = $isa; # The &-call is here to ascertain the mutability of @_. @@ -9154,7 +9157,7 @@ BEGIN { # This does not compile, alas. (XXX eh?) $db_stop = 0; # Compiler warning ... $db_stop = 1 << 30; # ... because this is only used in an eval() later. - # This variable records how many levels we're nested in debugging. Used + # This variable records how many levels we're nested in debugging. # Used in the debugger prompt, and in determining whether it's all over or # not. $level = 0; # Level of recursive debugging |