diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 1998-08-12 18:42:35 +0300 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-09-23 03:20:13 +0000 |
| commit | 8ada0baa1f731edbe470a7630cfeb30c131b4672 (patch) | |
| tree | 878d7ca51320e5fb9ab9f95b0c13c54031deddad /perl.h | |
| parent | 4beedc23b598a493399ba23c8c4bd5448e52283a (diff) | |
| download | perl-8ada0baa1f731edbe470a7630cfeb30c131b4672.tar.gz | |
apply minimal variant of patch (sent via private mail)
Message-Id: <199808121242.PAA29761@comanche.spices>
Subject: [PATCH] 5.004_02 or 5.005_51: fix regexp and tr character ranges in non-ASCII lands
p4raw-id: //depot/perl@1803
Diffstat (limited to 'perl.h')
| -rw-r--r-- | perl.h | 6 |
1 files changed, 6 insertions, 0 deletions
@@ -209,6 +209,12 @@ register struct op *op asm(stringify(OP_IN_REGISTER)); # define LIBERAL 1 #endif +#if 'A' == 65 && 'I' == 73 && 'J' == 74 && 'Z' == 90 +#define ASCIIish +#else +#undef ASCIIish +#endif + /* * The following contortions are brought to you on behalf of all the * standards, semi-standards, de facto standards, not-so-de-facto standards |