This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
sv.h: Document the only use of SvSCREAM
authorFather Chrysostomos <sprout@cpan.org>
Thu, 24 May 2012 21:54:29 +0000 (14:54 -0700)
committerFather Chrysostomos <sprout@cpan.org>
Wed, 30 May 2012 06:55:23 +0000 (23:55 -0700)
Now that studied scalars are gone, SvSCREAM is used only for the DOES
method name hack, so update sv.h accordingly.

sv.h

diff --git a/sv.h b/sv.h
index ff7565f..9078517 100644 (file)
--- a/sv.h
+++ b/sv.h
@@ -302,7 +302,7 @@ perform the upgrade if necessary.  See C<svtype>.
 #define SVp_IOK                0x00001000  /* has valid non-public integer value */
 #define SVp_NOK                0x00002000  /* has valid non-public numeric value */
 #define SVp_POK                0x00004000  /* has valid non-public pointer value */
-#define SVp_SCREAM     0x00008000  /* has been studied? */
+#define SVp_SCREAM     0x00008000  /* method name is DOES */
 #define SVphv_CLONEABLE        SVp_SCREAM  /* PVHV (stashes) clone its objects */
 #define SVpgv_GP       SVp_SCREAM  /* GV has a valid GP */
 #define SVprv_PCS_IMPORTED  SVp_SCREAM  /* RV is a proxy for a constant
@@ -378,7 +378,7 @@ perform the upgrade if necessary.  See C<svtype>.
 
    SVf_POK, SVp_POK also set:
    0x00004400   Normal
-   0x0000C400   Studied (SvSCREAM)
+   0x0000C400   method name for DOES (SvSCREAM)
    0x40004400   FBM compiled (SvVALID)
    0x4000C400   pad name.