From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Fri, 23 Mar 2007 18:25:43 +0000 (+0000)
Subject: Don't use PL_na.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=947077407b91d1804ad3931bbfee74e90819e636;p=p5sagit%2Fp5-mst-13.2.git

Don't use PL_na.

p4raw-id: //depot/perl@30730
---

diff --git a/universal.c b/universal.c
index e1ceea1..6fdf8b9 100644
--- a/universal.c
+++ b/universal.c
@@ -199,7 +199,7 @@ Perl_sv_does(pTHX_ SV *sv, const char *name)
     if (sv_isobject(sv)) {
 	classname = sv_reftype(SvRV(sv),TRUE);
     } else {
-	classname = SvPV(sv,PL_na);
+	classname = SvPV_nolen(sv);
     }
 
     if (strEQ(name,classname))