diff options
| -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)) |