From 0b6f4f5cb8bbeb6c5d1eb714dbf6cdf58c5516d7 Mon Sep 17 00:00:00 2001 From: Andy Lester Date: Thu, 22 Dec 2005 10:00:44 -0600 Subject: Speed up Perl_sv_derived_from Message-ID: <20051222220044.GH4370@petdance.com> Date: Thu, 22 Dec 2005 16:00:44 -0600 p4raw-id: //depot/perl@26461 --- universal.c | 22 +++++++++++----------- 1 file changed, 11 insertions(+), 11 deletions(-) (limited to 'universal.c') diff --git a/universal.c b/universal.c index 097cc64e07..24aa3b8e48 100644 --- a/universal.c +++ b/universal.c @@ -140,29 +140,29 @@ for class names as well as for objects. bool Perl_sv_derived_from(pTHX_ SV *sv, const char *name) { - const char *type = NULL; - HV *stash = NULL; - HV *name_stash; + HV *stash; SvGETMAGIC(sv); if (SvROK(sv)) { + const char *type; sv = SvRV(sv); type = sv_reftype(sv,0); - if (SvOBJECT(sv)) - stash = SvSTASH(sv); + if (type && strEQ(type,name)) + return TRUE; + stash = SvOBJECT(sv) ? SvSTASH(sv) : NULL; } else { stash = gv_stashsv(sv, FALSE); } - name_stash = gv_stashpv(name, FALSE); + if (stash) { + HV * const name_stash = gv_stashpv(name, FALSE); + return isa_lookup(stash, name, name_stash, strlen(name), 0) == &PL_sv_yes; + } + else + return FALSE; - return (type && strEQ(type,name)) || - (stash && isa_lookup(stash, name, name_stash, strlen(name), 0) - == &PL_sv_yes) - ? TRUE - : FALSE ; } #include "XSUB.h" -- cgit v1.2.1