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 /regen/mg_vtable.pl | |
| 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.
Diffstat (limited to 'regen/mg_vtable.pl')
| -rw-r--r-- | regen/mg_vtable.pl | 5 |
1 files changed, 3 insertions, 2 deletions
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', |