Re: perldiag.pod entry for "Scalar value @%s{%s} ..."

[p5sagit/p5-mst-13.2.git] / mg.h

diff --git a/mg.h b/mg.h
index a7d217c..8fbda82 100644 (file)
--- a/mg.h
+++ b/mg.h
@@ -29,5 +29,12 @@ struct magic {
 #define MGf_TAINTEDDIR 1
 #define MGf_REFCOUNTED 2
 #define MGf_GSKIP      4
+
+#define MGf_MINMATCH   1
+
 #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