diff options
| author | Nicholas Clark <nick@ccl4.org> | 2009-01-21 16:12:06 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2009-01-21 17:09:11 +0000 |
| commit | e350d0e0ab968c54f8b39c21d92b151f1f1611d5 (patch) | |
| tree | 1a22a926cfed73438534c4b59472981ef6154776 /ext | |
| parent | 0da0e728710fd7ef615c1a9711842235a554e595 (diff) | |
| download | perl-e350d0e0ab968c54f8b39c21d92b151f1f1611d5.tar.gz | |
In attrs::get(), use Perl_get_cvn_flags() rather than perl_get_cv().
Diffstat (limited to 'ext')
| -rw-r--r-- | ext/attrs/attrs.xs | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/ext/attrs/attrs.xs b/ext/attrs/attrs.xs index e3ba012d69..c7fce1921a 100644 --- a/ext/attrs/attrs.xs +++ b/ext/attrs/attrs.xs @@ -52,8 +52,9 @@ SV * sub sub = Nullsv; } else { - const char * const name = SvPV_nolen(sub); - sub = (SV*)perl_get_cv(name, FALSE); + STRLEN len; + const char * const name = SvPV(sub, len); + sub = (SV*)get_cvn_flags(name, len, SvUTF8(sub)); } if (!sub) croak("invalid subroutine reference or name"); |