summaryrefslogtreecommitdiff
path: root/gv.c
diff options
context:
space:
mode:
authorJoshua Pritikin <joshua.pritikin@db.com>1998-06-26 06:02:32 -0400
committerGurusamy Sarathy <gsar@cpan.org>1998-06-28 20:36:08 +0000
commit3e0ccd427679e11020bfe0a22532e0a9a22a3d28 (patch)
treef341fc84d86107ad3a689f21ff7d387538876400 /gv.c
parent8d37f93276d8a61b3f2bde2358425cba26b9b98d (diff)
downloadperl-3e0ccd427679e11020bfe0a22532e0a9a22a3d28.tar.gz
improve recursive error messages!
Message-Id: <H00000e500081d28@MHS> p4raw-id: //depot/perl@1245
Diffstat (limited to 'gv.c')
-rw-r--r--gv.c3
1 files changed, 2 insertions, 1 deletions
diff --git a/gv.c b/gv.c
index 0a363704cd..ea78d20048 100644
--- a/gv.c
+++ b/gv.c
@@ -162,7 +162,8 @@ gv_fetchmeth(HV *stash, char *name, STRLEN len, I32 level)
if (!stash)
return 0;
if ((level > 100) || (level < -100))
- croak("Recursive inheritance detected");
+ croak("Recursive inheritance detected while looking for method '%s' in package '%s'",
+ name, HvNAME(stash));
DEBUG_o( deb("Looking for method %s in package %s\n",name,HvNAME(stash)) );