From: Steve Peters <steve@fisharerojo.org>
Date: Thu, 2 Feb 2006 20:42:56 +0000 (+0000)
Subject: Death to magic characters!  No pun intended.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=a8248b05d2703ce15b656bd104eb8ad2224e3991;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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 )