diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2007-03-23 18:25:43 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2007-03-23 18:25:43 +0000 |
| commit | 947077407b91d1804ad3931bbfee74e90819e636 (patch) | |
| tree | f6e6d75cc672053f382d28897221f8db8d56f75c | |
| parent | 2fe79ddcb013d4ea51e6a1c875376da66337b28d (diff) | |
| download | perl-947077407b91d1804ad3931bbfee74e90819e636.tar.gz | |
Don't use PL_na.
p4raw-id: //depot/perl@30730
| -rw-r--r-- | universal.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/universal.c b/universal.c index e1ceea169a..6fdf8b99be 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)) |