diff options
author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2005-06-13 09:00:00 +0000 |
---|---|---|
committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2005-06-13 09:00:00 +0000 |
commit | 63f971906e4e2f134a559c695d28f479cac191db (patch) | |
tree | daf0ab168206b2dc8c82f7957846a0acd4b1135a /sv.h | |
parent | a227dc4778e24da2c5bc2ffad02a89310996ff78 (diff) | |
download | perl-63f971906e4e2f134a559c695d28f479cac191db.tar.gz |
Make SvUPGRADE always have the value '1'
Make sv_upgrade a void function
p4raw-id: //depot/perl@24817
Diffstat (limited to 'sv.h')
-rw-r--r-- | sv.h | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -208,7 +208,7 @@ perform the upgrade if necessary. See C<svtype>. #define SVTYPEMASK 0xff #define SvTYPE(sv) ((sv)->sv_flags & SVTYPEMASK) -#define SvUPGRADE(sv, mt) (void)(SvTYPE(sv) >= mt || sv_upgrade(sv, mt)) +#define SvUPGRADE(sv, mt) (SvTYPE(sv) >= (mt) || (sv_upgrade(sv, mt), 1)) #define SVs_PADSTALE 0x00000100 /* lexical has gone out of scope */ #define SVs_PADTMP 0x00000200 /* in use as tmp */ |