diff options
| author | Adrian M. Enache <enache@rdslink.ro> | 2003-08-22 00:17:26 +0300 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2003-08-21 18:11:30 +0000 |
| commit | 608b3986f5e84a9d4745493bf572b18115a97390 (patch) | |
| tree | 0694ca6e4a8b58e9878ba1f875e7edf76a3cf54e /gv.c | |
| parent | 4de5f5caa29d6a57b47c489616e3eb1627496091 (diff) | |
| download | perl-608b3986f5e84a9d4745493bf572b18115a97390.tar.gz | |
utf8 variable names scrambled in error messages
Message-ID: <20030821181726.GA1241@ratsnest.hole>
p4raw-id: //depot/perl@20805
Diffstat (limited to 'gv.c')
| -rw-r--r-- | gv.c | 7 |
1 files changed, 5 insertions, 2 deletions
@@ -761,12 +761,15 @@ Perl_gv_fetchpv(pTHX_ const char *nambeg, I32 add, I32 sv_type) if (!stash) { if (add) { - qerror(Perl_mess(aTHX_ + register SV *err = Perl_mess(aTHX_ "Global symbol \"%s%s\" requires explicit package name", (sv_type == SVt_PV ? "$" : sv_type == SVt_PVAV ? "@" : sv_type == SVt_PVHV ? "%" - : ""), name)); + : ""), name); + if (USE_UTF8_IN_NAMES) + SvUTF8_on(err); + qerror(err); stash = GvHV(gv_fetchpv("<none>::", GV_ADDMULTI, SVt_PVHV)); } else |