diff options
| author | Mike Guy <mjtg@cam.ac.uk> | 2000-08-08 16:51:27 +0100 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2000-08-08 18:06:29 +0000 |
| commit | 1426bbf4b7d39af0f80ec0afcb4869d2bc3f0a90 (patch) | |
| tree | 594be049f6d75b6949b880b017535670ff194ed3 /sv.h | |
| parent | a223bd6128bafe323fc3be7c344f6b66aa25af02 (diff) | |
| download | perl-1426bbf4b7d39af0f80ec0afcb4869d2bc3f0a90.tar.gz | |
Re: [ID 20000807.008] Double reads considered evil? (deja vu)
Message-Id: <E13MAj1-00038W-00@libra.cus.cam.ac.uk>
p4raw-id: //depot/perl@6552
Diffstat (limited to 'sv.h')
| -rw-r--r-- | sv.h | 2 |
1 files changed, 2 insertions, 0 deletions
@@ -612,6 +612,8 @@ Set the length of the string which is in the SV. See C<SvCUR>. #define SvAMAGIC_on(sv) (SvFLAGS(sv) |= SVf_AMAGIC) #define SvAMAGIC_off(sv) (SvFLAGS(sv) &= ~SVf_AMAGIC) +#define SvGAMAGIC(sv) (SvFLAGS(sv) & (SVs_GMG|SVf_AMAGIC)) + /* #define Gv_AMG(stash) \ (HV_AMAGICmb(stash) && \ |