diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2000-10-06 00:38:11 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2000-10-06 00:38:11 +0000 |
| commit | 9b2db8e94a2dd349aad72259cdcdd425bf501466 (patch) | |
| tree | 934304601baef757c0a4ea0a72bb548ffefb410a /sv.h | |
| parent | 7517970fb027d70a681529abbff1c6444576c7e9 (diff) | |
| download | perl-9b2db8e94a2dd349aad72259cdcdd425bf501466.tar.gz | |
Patch from Peter Prymmer to disable utf8 in EBCDIC platforms.
p4raw-id: //depot/perl@7152
Diffstat (limited to 'sv.h')
| -rw-r--r-- | sv.h | 4 |
1 files changed, 4 insertions, 0 deletions
@@ -202,7 +202,11 @@ perform the upgrade if necessary. See C<svtype>. #define SVp_POK 0x04000000 /* has valid non-public pointer value */ #define SVp_SCREAM 0x08000000 /* has been studied? */ +#ifdef EBCDIC +#define SVf_UTF8 0x00000000 /* SvPVX is not UTF-8 encoded */ +#else #define SVf_UTF8 0x20000000 /* SvPVX is UTF-8 encoded */ +#endif #define SVf_THINKFIRST (SVf_READONLY|SVf_ROK|SVf_FAKE|SVf_UTF8) |