Change 24738 by [EMAIL PROTECTED] on 2005/06/07 18:32:44
Add MgPV_const
Affected files ...
... //depot/perl/mg.h#22 edit
Differences ...
==== //depot/perl/mg.h#22 (text) ====
Index: perl/mg.h
--- perl/mg.h#21~24074~ Thu Mar 24 08:25:58 2005
+++ perl/mg.h Tue Jun 7 11:32:44 2005
@@ -48,6 +48,9 @@
#define MgPV(mg,lp) ((((int)(lp = (mg)->mg_len)) == HEf_SVKEY) ? \
SvPV((SV*)((mg)->mg_ptr),lp) : \
(mg)->mg_ptr)
+#define MgPV_const(mg,lp) ((((int)(lp = (mg)->mg_len)) == HEf_SVKEY) ? \
+ SvPV_const((SV*)((mg)->mg_ptr),lp) : \
+ (const char*)(mg)->mg_ptr)
#define SvTIED_mg(sv,how) \
(SvRMAGICAL(sv) ? mg_find((sv),(how)) : Null(MAGIC*))
End of Patch.
