diff options
author | Brian Fraser <fraserbn@gmail.com> | 2011-07-07 04:35:35 -0300 |
---|---|---|
committer | Father Chrysostomos <sprout@cpan.org> | 2011-10-06 13:01:15 -0700 |
commit | 7ad9a4ff6c24efeda9bfd78912af50821bb2bada (patch) | |
tree | 37e22a60d7ea81d30f7959aff00851b95d64f7d6 /mro.c | |
parent | 119cacd042954e89b0fa6f0ac0f043feeb8a2e9c (diff) | |
download | perl-7ad9a4ff6c24efeda9bfd78912af50821bb2bada.tar.gz |
mro.(c|xs): Make warnings utf8-clean
Diffstat (limited to 'mro.c')
-rw-r--r-- | mro.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -224,8 +224,8 @@ S_mro_get_linear_isa_dfs(pTHX_ HV *stash, U32 level) Perl_croak(aTHX_ "Can't linearize anonymous symbol table"); if (level > 100) - Perl_croak(aTHX_ "Recursive inheritance detected in package '%s'", - HEK_KEY(stashhek)); + Perl_croak(aTHX_ "Recursive inheritance detected in package '%"SVf"'", + SVfARG(sv_2mortal(newSVhek(stashhek)))); meta = HvMROMETA(stash); |