summaryrefslogtreecommitdiff
path: root/mro.c
diff options
context:
space:
mode:
Diffstat (limited to 'mro.c')
-rw-r--r--mro.c5
1 files changed, 3 insertions, 2 deletions
diff --git a/mro.c b/mro.c
index 67c77ebe81..1d60387869 100644
--- a/mro.c
+++ b/mro.c
@@ -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);