diff options
Diffstat (limited to 'mro.c')
-rw-r--r-- | mro.c | 5 |
1 files changed, 3 insertions, 2 deletions
@@ -224,8 +224,9 @@ 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 '%"SVf"'", - SVfARG(sv_2mortal(newSVhek(stashhek)))); + Perl_croak(aTHX_ + "Recursive inheritance detected in package '%"HEKf"'", + HEKfARG(stashhek)); meta = HvMROMETA(stash); |