From: Nicholas Clark <nick@ccl4.org>
Date: Wed, 21 Jan 2009 16:12:06 +0000 (+0000)
Subject: In attrs::get(), use Perl_get_cvn_flags() rather than perl_get_cv().
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=e350d0e0ab968c54f8b39c21d92b151f1f1611d5;p=p5sagit%2Fp5-mst-13.2.git

In attrs::get(), use Perl_get_cvn_flags() rather than perl_get_cv().
---

diff --git a/ext/attrs/attrs.xs b/ext/attrs/attrs.xs
index e3ba012..c7fce19 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");