perl 5.003_05: mg.h
authorPerl 5 Porters <perl5-porters@africa.nicoh.com>
Sun, 8 Sep 1996 00:55:02 +0000 (00:55 +0000)
committerAndy Dougherty <doughera@lafcol.lafayette.edu>
Sun, 8 Sep 1996 00:55:02 +0000 (00:55 +0000)
Replace the oft-repeated mg_ptr incantation with
the simple MgPVKEY macro.

Rename MgPVKEY to MgPV (to match with HePV elsewhere).  Add
additional parens around the "mg".

mg.h

diff --git a/mg.h b/mg.h
index ab24eb0..8fbda82 100644 (file)
--- a/mg.h
+++ b/mg.h
@@ -34,3 +34,7 @@ struct magic {
 
 #define MgTAINTEDDIR(mg) (mg->mg_flags & MGf_TAINTEDDIR)
 #define MgTAINTEDDIR_on(mg) (mg->mg_flags |= MGf_TAINTEDDIR)
+
+#define MgPV(mg)                ((mg)->mg_len == HEf_SVKEY) ?   \
+                                SvPV((SV*)((mg)->mg_ptr),na) :   \
+                                (mg)->mg_ptr