diff options
| author | John Peacock <jpeacock@rowman.com> | 2002-08-15 06:06:21 -0400 |
|---|---|---|
| committer | hv <hv@crypt.org> | 2002-08-20 16:48:05 +0000 |
| commit | b0f01acb49cf6b1fa37ea8df571f53079ea78fc9 (patch) | |
| tree | fc5e02256df0b86c3809dcb620dea349322e9f09 /sv.h | |
| parent | 13cf4046edaf355c472009e29cf43ad8b1d7e6cc (diff) | |
| download | perl-b0f01acb49cf6b1fa37ea8df571f53079ea78fc9.tar.gz | |
Version object patch #1
Message-id: <3D5BB55D.6090603@rowman.com>
and Message-id: <3D627D1A.4050607@rowman.com>
and t/lib/warnings/universal tweak to skip
p4raw-id: //depot/perl@17746
Diffstat (limited to 'sv.h')
| -rw-r--r-- | sv.h | 5 |
1 files changed, 4 insertions, 1 deletions
@@ -487,6 +487,9 @@ Unsets the PV status of an SV. Tells an SV that it is a string and disables all other OK bits. Will also turn off the UTF8 status. +=for apidoc Am|bool|SvVOK|SV* sv +Returns a boolean indicating whether the SV contains a v-string. + =for apidoc Am|bool|SvOOK|SV* sv Returns a boolean indicating whether the SvIVX is a valid offset value for the SvPVX. This hack is used internally to speed up removal of characters @@ -578,7 +581,6 @@ Set the length of the string which is in the SV. See C<SvCUR>. #define SvIOK_notUV(sv) ((SvFLAGS(sv) & (SVf_IOK|SVf_IVisUV)) \ == SVf_IOK) -#define SvVOK(sv) (SvMAGICAL(sv) && mg_find(sv,'V')) #define SvIsUV(sv) (SvFLAGS(sv) & SVf_IVisUV) #define SvIsUV_on(sv) (SvFLAGS(sv) |= SVf_IVisUV) #define SvIsUV_off(sv) (SvFLAGS(sv) &= ~SVf_IVisUV) @@ -621,6 +623,7 @@ and leaves the UTF8 status as it was. SVf_IVisUV), \ SvFLAGS(sv) |= (SVf_POK|SVp_POK)) +#define SvVOK(sv) (SvMAGICAL(sv) && mg_find(sv,'V')) #define SvOOK(sv) (SvFLAGS(sv) & SVf_OOK) #define SvOOK_on(sv) ((void)SvIOK_off(sv), SvFLAGS(sv) |= SVf_OOK) #define SvOOK_off(sv) (SvOOK(sv) && sv_backoff(sv)) |