Death to magic characters! No pun intended.

p4raw-id: //depot/perl@27056

diff --git a/ext/B/B.xs b/ext/B/B.xs
index de7993a..86dd9d9 100644 (file)
--- a/ext/B/B.xs
+++ b/ext/B/B.xs
@@ -1319,7 +1319,7 @@ IV
 MgREGEX(mg)
        B::MAGIC        mg
     CODE:
-        if( mg->mg_type == 'r' ) {
+        if(mg->mg_type == PERL_MAGIC_qr) {
             RETVAL = MgREGEX(mg);
         }
         else {
@@ -1332,7 +1332,7 @@ SV*
 precomp(mg)
         B::MAGIC        mg
     CODE:
-        if (mg->mg_type == 'r') {
+        if (mg->mg_type == PERL_MAGIC_qr) {
             REGEXP* rx = (REGEXP*)mg->mg_obj;
             RETVAL = Nullsv;
             if( rx )