diff options
| author | Joshua Pritikin <joshua.pritikin@db.com> | 1998-06-26 06:02:32 -0400 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-06-28 20:36:08 +0000 |
| commit | 3e0ccd427679e11020bfe0a22532e0a9a22a3d28 (patch) | |
| tree | f341fc84d86107ad3a689f21ff7d387538876400 /universal.c | |
| parent | 8d37f93276d8a61b3f2bde2358425cba26b9b98d (diff) | |
| download | perl-3e0ccd427679e11020bfe0a22532e0a9a22a3d28.tar.gz | |
improve recursive error messages!
Message-Id: <H00000e500081d28@MHS>
p4raw-id: //depot/perl@1245
Diffstat (limited to 'universal.c')
| -rw-r--r-- | universal.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/universal.c b/universal.c index 72da1e4937..ef4f5b3066 100644 --- a/universal.c +++ b/universal.c @@ -21,7 +21,7 @@ isa_lookup(HV *stash, char *name, int len, int level) return &sv_yes; if (level > 100) - croak("Recursive inheritance detected"); + croak("Recursive inheritance detected in package '%s'", HvNAME(stash)); gvp = (GV**)hv_fetch(stash, "::ISA::CACHE::", 14, FALSE); |