diff options
author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-04-29 02:04:46 +0000 |
---|---|---|
committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-04-29 02:04:46 +0000 |
commit | 3568d8383f3d0b22eb07927391114af2a91b06ed (patch) | |
tree | 66b4d1c9c931970f3de59a7b7191ce5347fa2105 /proto.h | |
parent | f178ed66457a9ad627c33e14936605600f4c5690 (diff) | |
download | perl-3568d8383f3d0b22eb07927391114af2a91b06ed.tar.gz |
In character classes one couldn't have 0x80..0xff characters
at the left hand side if there were 0x100.. characters in the
character class.
p4raw-id: //depot/perl@9901
Diffstat (limited to 'proto.h')
-rw-r--r-- | proto.h | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -808,7 +808,7 @@ PERL_CALLCONV void Perl_sv_vcatpvfn(pTHX_ SV* sv, const char* pat, STRLEN patlen PERL_CALLCONV void Perl_sv_vsetpvfn(pTHX_ SV* sv, const char* pat, STRLEN patlen, va_list* args, SV** svargs, I32 svmax, bool *maybe_tainted); PERL_CALLCONV NV Perl_str_to_version(pTHX_ SV *sv); PERL_CALLCONV SV* Perl_swash_init(pTHX_ char* pkg, char* name, SV* listsv, I32 minbits, I32 none); -PERL_CALLCONV UV Perl_swash_fetch(pTHX_ SV *sv, U8 *ptr); +PERL_CALLCONV UV Perl_swash_fetch(pTHX_ SV *sv, U8 *ptr, bool do_utf8); PERL_CALLCONV void Perl_taint_env(pTHX); PERL_CALLCONV void Perl_taint_proper(pTHX_ const char* f, const char* s); PERL_CALLCONV UV Perl_to_utf8_lower(pTHX_ U8 *p); |