diff options
| author | Brian Fraser <fraserbn@gmail.com> | 2011-07-06 08:54:11 -0300 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2011-10-06 13:01:09 -0700 |
| commit | a00b390b6689672af8817e28321f92e70369c0d4 (patch) | |
| tree | 730b5ff46b5f0edefa359c90e8de50dcecb9446b /universal.c | |
| parent | c7abbf64034f62cedb5a6bfddec1d84a60828ffd (diff) | |
| download | perl-a00b390b6689672af8817e28321f92e70369c0d4.tar.gz | |
universal.c: ->can UTF8 cleanup.
Diffstat (limited to 'universal.c')
| -rw-r--r-- | universal.c | 4 |
1 files changed, 1 insertions, 3 deletions
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)))); } |