diff options
| author | Ricardo Signes <rjbs@semiotic.systems> | 2020-03-19 14:10:05 -0400 |
|---|---|---|
| committer | Tony Cook <tony@develop-help.com> | 2020-03-23 12:00:24 +1100 |
| commit | cea5179966b71052266ad395bb4c1e4d83e5b553 (patch) | |
| tree | 346240b64c063885db2c07a85b27743fce9fdbb3 /lib/perl5db.pl | |
| parent | 61858d5725de05374c30a63661280b1b5998bce3 (diff) | |
| download | perl-cea5179966b71052266ad395bb4c1e4d83e5b553.tar.gz | |
perl5db.pl: the "i" command must load mro.pm before use
Diffstat (limited to 'lib/perl5db.pl')
| -rw-r--r-- | lib/perl5db.pl | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/lib/perl5db.pl b/lib/perl5db.pl index e8a29da134..2106cf40d4 100644 --- a/lib/perl5db.pl +++ b/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.56'; $header = "perl5db.pl version $VERSION"; @@ -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 @_. |