From: Gisle Aas <gisle@aas.no>
Date: Thu, 13 Oct 2005 06:00:49 +0000 (-0700)
Subject: SvPVutf8_nolen crashes [PATCH]
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=0be7d46277584d2aedd86c792092a306a69a45b8;p=p5sagit%2Fp5-mst-13.2.git

SvPVutf8_nolen crashes [PATCH]
Message-ID: <lrslv56072.fsf@caliper.activestate.com>

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

diff --git a/sv.c b/sv.c
index 9bb43e7..1b2a0c4 100644
--- a/sv.c
+++ b/sv.c
@@ -3428,7 +3428,7 @@ char *
 Perl_sv_2pvutf8(pTHX_ register SV *sv, STRLEN *lp)
 {
     sv_utf8_upgrade(sv);
-    return SvPV(sv,*lp);
+    return lp ? SvPV(sv,*lp) : SvPV_nolen(sv);
 }
 
 /*