From: Father Chrysostomos <sprout@cpan.org>
Date: Fri, 5 Oct 2012 20:00:35 +0000 (-0700)
Subject: Move a CAN_COW_MASK comment from sv.c to sv.h
X-Git-Tag: v5.17.7~254
X-Git-Url: https://perl5.git.perl.org/perl5.git/commitdiff_plain/98c9650cd6a4e552074e5a73bc335c5d9f92ff52?hp=048a2f473ab9e1649559f56eff334b3c25289f57

Move a CAN_COW_MASK comment from sv.c to sv.h

It got left behind in ed25273444 when the macro moved.
---

diff --git a/sv.c b/sv.c
index 6f75847..37344ae 100644
--- a/sv.c
+++ b/sv.c
@@ -66,8 +66,6 @@
 #ifdef PERL_OLD_COPY_ON_WRITE
 #define SV_COW_NEXT_SV(sv)	INT2PTR(SV *,SvUVX(sv))
 #define SV_COW_NEXT_SV_SET(current,next)	SvUV_set(current, PTR2UV(next))
-/* This is a pessimistic view. Scalar must be purely a read-write PV to copy-
-   on-write.  */
 #endif
 
 /* ============================================================================
diff --git a/sv.h b/sv.h
index e636eca..25ceff9 100644
--- a/sv.h
+++ b/sv.h
@@ -1844,6 +1844,8 @@ mg.c:1024: warning: left-hand operand of comma expression has no effect
 #  define SvRELEASE_IVX_(sv)  /**/
 #endif /* PERL_OLD_COPY_ON_WRITE */
 
+/* This is a pessimistic view. Scalar must be purely a read-write PV to copy-
+   on-write.  */
 #define CAN_COW_MASK	(SVs_OBJECT|SVs_GMG|SVs_SMG|SVs_RMG|SVf_IOK|SVf_NOK| \
 			 SVf_POK|SVf_ROK|SVp_IOK|SVp_NOK|SVp_POK|SVf_FAKE| \
 			 SVf_OOK|SVf_BREAK|SVf_READONLY)