diff options
author | Father Chrysostomos <sprout@cpan.org> | 2011-06-15 21:35:56 -0700 |
---|---|---|
committer | Father Chrysostomos <sprout@cpan.org> | 2011-06-15 21:53:18 -0700 |
commit | f34d15629da26eee6e2b4b28c96865dc4921c52b (patch) | |
tree | f4820bdf739ea8528fec87074d57749ef43a9884 | |
parent | eb883b9286505f2ba163b6a72b9978e9a3645b4d (diff) | |
download | perl-f34d15629da26eee6e2b4b28c96865dc4921c52b.tar.gz |
[perl #92906] perl -d has non-functional b command
This fixes a regression introduced after 5.14.0.
Commit 6f83ef0e5a4 got dbfile and dbline magic mixed up and ended up
apply set-magic to the hash (dbfile), not to the element (dbline).
The result was that debugger breakpoints simply did not work at all.
-rw-r--r-- | mg_raw.h | 4 | ||||
-rw-r--r-- | regen/mg_vtable.pl | 5 |
2 files changed, 5 insertions, 4 deletions
@@ -50,9 +50,9 @@ "/* isaelem 'i' @ISA array element */" }, { 'k', "want_vtbl_nkeys | PERL_MAGIC_VALUE_MAGIC", "/* nkeys 'k' scalar(keys()) lvalue */" }, - { 'L', "want_vtbl_dbline", + { 'L', "magic_vtable_max", "/* dbfile 'L' Debugger %_<filename */" }, - { 'l', "magic_vtable_max", + { 'l', "want_vtbl_dbline", "/* dbline 'l' Debugger %_<filename element */" }, { 'o', "want_vtbl_collxfrm | PERL_MAGIC_VALUE_MAGIC", "/* collxfrm 'o' Locale transformation */" }, diff --git a/regen/mg_vtable.pl b/regen/mg_vtable.pl index 65412dc07f..af0041dddf 100644 --- a/regen/mg_vtable.pl +++ b/regen/mg_vtable.pl @@ -53,9 +53,10 @@ my %mg = desc => '@ISA array element' }, nkeys => { char => 'k', vtable => 'nkeys', value_magic => 1, desc => 'scalar(keys()) lvalue' }, - dbfile => { char => 'L', vtable => 'dbline', + dbfile => { char => 'L', desc => 'Debugger %_<filename' }, - dbline => { char => 'l', desc => 'Debugger %_<filename element' }, + dbline => { char => 'l', vtable => 'dbline', + desc => 'Debugger %_<filename element' }, shared => { char => 'N', desc => 'Shared between threads', unknown_to_sv_magic => 1 }, shared_scalar => { char => 'n', desc => 'Shared between threads', |