diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-01-05 06:44:27 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-01-05 06:44:27 +0000 |
| commit | 750a8e2c70da2d486bd9f0b318b246ae27596a66 (patch) | |
| tree | 48c21ddf1f8c4aa55b33343393a2bf6d75524a0c /pp_hot.c | |
| parent | 9f47dea70749923a174674b70d91d95d4325cd48 (diff) | |
| download | perl-750a8e2c70da2d486bd9f0b318b246ae27596a66.tar.gz | |
UTF-8 cleanup.
p4raw-id: //depot/perl@8328
Diffstat (limited to 'pp_hot.c')
| -rw-r--r-- | pp_hot.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -2913,7 +2913,7 @@ S_method_common(pTHX_ SV* meth, U32* hashp) !(ob=(SV*)GvIO(iogv))) { if (!packname || - ((*(U8*)packname >= 0xc0 && DO_UTF8(sv)) + ((UTF8_IS_START(*packname) && DO_UTF8(sv)) ? !isIDFIRST_utf8((U8*)packname) : !isIDFIRST(*packname) )) |