Protect Perl_sv_2pvbyte () to NULL length pointers

Thanks Nick!

p4raw-id: //depot/perl@24850

1 files changed, 1 insertions, 1 deletions

diff --git a/sv.c b/sv.c
index 403524122d..bd49a28e22 100644
--- a/sv.c
+++ b/sv.c
@@ -3775,7 +3775,7 @@ char *
 Perl_sv_2pvbyte(pTHX_ register SV *sv, STRLEN *lp)
 {
     sv_utf8_downgrade(sv,0);
-    return SvPV(sv,*lp);
+    return lp ? SvPV(sv,*lp) : SvPV_nolen(sv);
 }
 
 /*