This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Don't use PL_na.
authorRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Fri, 23 Mar 2007 18:25:43 +0000 (18:25 +0000)
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Fri, 23 Mar 2007 18:25:43 +0000 (18:25 +0000)
p4raw-id: //depot/perl@30730

universal.c

index e1ceea1..6fdf8b9 100644 (file)
@@ -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))