diff options
| author | Brian Fraser <fraserbn@gmail.com> | 2011-12-13 19:32:48 -0300 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2011-12-15 20:13:28 -0800 |
| commit | d47f310d69da3356f76ded4c14c2770d5f1325f4 (patch) | |
| tree | 4145aee67b224fcdcc499e9d8b0b174b678fc2b8 /pp_hot.c | |
| parent | 5dca8ed9d28127c9f7a2e7ce5f8ba970da3608cd (diff) | |
| download | perl-d47f310d69da3356f76ded4c14c2770d5f1325f4.tar.gz | |
pp_hot.c: First letter of latin-1 classnames wasn't being checked correctly.
Previously the first letter for latin-1 classnames was being mischecked, only
allowing ASCII, which caused an instance of the Unicode Bug for downgradable
classnames.
Diffstat (limited to 'pp_hot.c')
| -rw-r--r-- | pp_hot.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -2973,7 +2973,7 @@ S_method_common(pTHX_ SV* meth, U32* hashp) if (!packname || ((UTF8_IS_START(*packname) && DO_UTF8(sv)) ? !isIDFIRST_utf8((U8*)packname) - : !isIDFIRST(*packname) + : !isIDFIRST_L1((U8)*packname) )) { Perl_croak(aTHX_ "Can't call method \"%"SVf"\" %s", |