From a00b390b6689672af8817e28321f92e70369c0d4 Mon Sep 17 00:00:00 2001 From: Brian Fraser Date: Wed, 6 Jul 2011 08:54:11 -0300 Subject: universal.c: ->can UTF8 cleanup. --- universal.c | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) (limited to 'universal.c') diff --git a/universal.c b/universal.c index 6ba565d187..314af372c5 100644 --- a/universal.c +++ b/universal.c @@ -295,7 +295,6 @@ XS(XS_UNIVERSAL_can) dVAR; dXSARGS; SV *sv; - const char *name; SV *rv; HV *pkg = NULL; @@ -310,7 +309,6 @@ XS(XS_UNIVERSAL_can) || (SvGMAGICAL(sv) && SvPOKp(sv) && SvCUR(sv)))) XSRETURN_UNDEF; - name = SvPV_nolen_const(ST(1)); rv = &PL_sv_undef; if (SvROK(sv)) { @@ -323,7 +321,7 @@ XS(XS_UNIVERSAL_can) } if (pkg) { - GV * const gv = gv_fetchmethod_autoload(pkg, name, FALSE); + GV * const gv = gv_fetchmethod_sv_flags(pkg, ST(1), 0); if (gv && isGV(gv)) rv = sv_2mortal(newRV(MUTABLE_SV(GvCV(gv)))); } -- cgit v1.2.1