diff options
| author | Andy Lester <andy@petdance.com> | 2007-05-09 06:49:13 -0500 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2007-05-09 17:20:35 +0000 |
| commit | 810e611394e65af2f8be3aaa197ca7d2ca61e563 (patch) | |
| tree | 4729ec50b870c5cd330a6735fa1b0cd1bdce7dea /universal.c | |
| parent | 9ff703dd13e95d1b87541d7c0507f117841b1046 (diff) | |
| download | perl-810e611394e65af2f8be3aaa197ca7d2ca61e563.tar.gz | |
Remove unused parms in S_isa_lookup
Message-Id: <1CBA316A-EC1D-4E8F-8DEE-35322F390358@petdance.com>
p4raw-id: //depot/perl@31185
Diffstat (limited to 'universal.c')
| -rw-r--r-- | universal.c | 9 |
1 files changed, 3 insertions, 6 deletions
diff --git a/universal.c b/universal.c index ef73504535..396dd3d0bd 100644 --- a/universal.c +++ b/universal.c @@ -32,16 +32,13 @@ */ STATIC bool -S_isa_lookup(pTHX_ HV *stash, const char *name, const HV* const name_stash, - int len, int level) +S_isa_lookup(pTHX_ HV *stash, const char * const name, const HV* const name_stash) { dVAR; AV* stash_linear_isa; SV** svp; const char *hvname; I32 items; - PERL_UNUSED_ARG(len); - PERL_UNUSED_ARG(level); /* A stash/class can go by many names (ie. User == main::User), so we compare the stash itself just in case */ @@ -61,7 +58,7 @@ S_isa_lookup(pTHX_ HV *stash, const char *name, const HV* const name_stash, items = AvFILLp(stash_linear_isa); while (items--) { SV* const basename_sv = *svp++; - HV* basestash = gv_stashsv(basename_sv, 0); + HV* const basestash = gv_stashsv(basename_sv, 0); if (!basestash) { if (ckWARN(WARN_SYNTAX)) Perl_warner(aTHX_ packWARN(WARN_SYNTAX), @@ -110,7 +107,7 @@ Perl_sv_derived_from(pTHX_ SV *sv, const char *name) if (stash) { HV * const name_stash = gv_stashpv(name, 0); - return isa_lookup(stash, name, name_stash, strlen(name), 0); + return isa_lookup(stash, name, name_stash); } else return FALSE; |