From f34d15629da26eee6e2b4b28c96865dc4921c52b Mon Sep 17 00:00:00 2001
From: Father Chrysostomos <sprout@cpan.org>
Date: Wed, 15 Jun 2011 21:35:56 -0700
Subject: [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.
---
 mg_raw.h | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'mg_raw.h')

diff --git a/mg_raw.h b/mg_raw.h
index d733260eee..e698dcdf76 100644
--- a/mg_raw.h
+++ b/mg_raw.h
@@ -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 */" },
-- 
cgit v1.2.1