summaryrefslogtreecommitdiff
path: root/sv.h
diff options
context:
space:
mode:
authorGurusamy Sarathy <gsar@cpan.org>1999-12-24 04:02:35 +0000
committerGurusamy Sarathy <gsar@cpan.org>1999-12-24 04:02:35 +0000
commita7cb1f9979dd83ab32266dc555f72f0939829c3f (patch)
tree30e708b7b59c1b8455a51a5b82a59ea9312de117 /sv.h
parentc63481edeb5a500b5e56c74ce83175790d2adf8a (diff)
downloadperl-a7cb1f9979dd83ab32266dc555f72f0939829c3f.tar.gz
support for v5.5.640 style version numbers
p4raw-id: //depot/utfperl@4705
Diffstat (limited to 'sv.h')
-rw-r--r--sv.h6
1 files changed, 3 insertions, 3 deletions
diff --git a/sv.h b/sv.h
index cefe13ced1..a16dcdd249 100644
--- a/sv.h
+++ b/sv.h
@@ -373,9 +373,9 @@ struct xpvio {
#define SvNOK_only(sv) (SvOK_off(sv), \
SvFLAGS(sv) |= (SVf_NOK|SVp_NOK))
-#define SvUTF8(sv) (SvFLAGS(sv) & SVf_ISUTF8)
-#define SvUTF8_on(sv) (SvFLAGS(sv) |= (SVf_ISUTF8))
-#define SvUTF8_off(sv) (SvFLAGS(sv) &= ~(SVf_ISUTF8))
+#define SvUTF8(sv) (SvFLAGS(sv) & SVf_UTF8)
+#define SvUTF8_on(sv) (SvFLAGS(sv) |= (SVf_UTF8))
+#define SvUTF8_off(sv) (SvFLAGS(sv) &= ~(SVf_UTF8))
#define SvPOK(sv) (SvFLAGS(sv) & SVf_POK)
#define SvPOK_on(sv) (SvFLAGS(sv) |= (SVf_POK|SVp_POK))