summaryrefslogtreecommitdiff
path: root/sv.h
diff options
context:
space:
mode:
authorRafael Garcia-Suarez <rgarciasuarez@gmail.com>2005-06-13 09:00:00 +0000
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>2005-06-13 09:00:00 +0000
commit63f971906e4e2f134a559c695d28f479cac191db (patch)
treedaf0ab168206b2dc8c82f7957846a0acd4b1135a /sv.h
parenta227dc4778e24da2c5bc2ffad02a89310996ff78 (diff)
downloadperl-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.h2
1 files changed, 1 insertions, 1 deletions
diff --git a/sv.h b/sv.h
index 719dfe2556..e6aea8d42a 100644
--- a/sv.h
+++ b/sv.h
@@ -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 */