Add a new SMAGIC flag, to signal a call to SvSETMAGIC. Add it to

sv_catpvn_flags and sv_catsv_flags, and then re-implement sv_catpvn_mg
and sv_catsv_mg as calls to sv_catpvn_flags and sv_catsv_flags
respectively.

p4raw-id: //depot/perl@25884

1 files changed, 1 insertions, 0 deletions

diff --git a/sv.h b/sv.h
index 2fad32ab84..06ab68a93e 100644
--- a/sv.h
+++ b/sv.h
@@ -1348,6 +1348,7 @@ Like C<sv_catsv> but doesn't process magic.
 #define SV_NOSTEAL		16
 #define SV_CONST_RETURN		32
 #define SV_MUTABLE_RETURN	64
+#define SV_SMAGIC		128
 
 #define sv_unref(sv)    	sv_unref_flags(sv, 0)
 #define sv_force_normal(sv)	sv_force_normal_flags(sv, 0)