[DOCPATCH] Re: [PATCH] Re: [perl #21614] 5.8.0 Unbalanced string table refcount

Message-ID: <20030327223735.GD277@Bagpuss.unfortu.net>

p4raw-id: //depot/perl@19079

2 files changed, 29 insertions, 1 deletions

diff --git a/pod/perlapi.pod b/pod/perlapi.pod
index d31ec00250..f646778f05 100644
--- a/pod/perlapi.pod
+++ b/pod/perlapi.pod
@@ -2741,6 +2741,27 @@ Returns a boolean indicating whether the SV contains an unsigned integer.
 =for hackers
 Found in file sv.h
 
+=item SvIsCOW
+
+Returns a boolean indicating whether the SV is Copy-On-Write. (either shared
+hash key scalars, or full Copy On Write scalars if 5.9.0 is configured for
+COW)
+
+	bool	SvIsCOW(SV* sv)
+
+=for hackers
+Found in file sv.h
+
+=item SvIsCOW_shared_hash
+
+Returns a boolean indicating whether the SV is Copy-On-Write shared hash key
+scalar.
+
+	bool	SvIsCOW_shared_hash(SV* sv)
+
+=for hackers
+Found in file sv.h
+
 =item SvIV
 
 Coerces the given SV to an integer and returns it. See  C<SvIVx> for a
@@ -2992,7 +3013,6 @@ Like C<SvPV>, but converts sv to byte representation first if necessary.
 Guarantees to evaluate sv only once; use the more efficient C<SvPVbyte>
 otherwise.
 
-
 	char*	SvPVbytex(SV* sv, STRLEN len)
 
 =for hackers
diff --git a/sv.h b/sv.h
index 18ad29705e..8af8cbbba5 100644
--- a/sv.h
+++ b/sv.h
@@ -920,6 +920,14 @@ Like C<SvPV>, but converts sv to byte representation first if necessary.
 Guarantees to evaluate sv only once; use the more efficient C<SvPVbyte>
 otherwise.
 
+=for apidoc Am|bool|SvIsCOW|SV* sv
+Returns a boolean indicating whether the SV is Copy-On-Write. (either shared
+hash key scalars, or full Copy On Write scalars if 5.9.0 is configured for
+COW)
+
+=for apidoc Am|bool|SvIsCOW_shared_hash|SV* sv
+Returns a boolean indicating whether the SV is Copy-On-Write shared hash key
+scalar.
 
 =cut
 */