From: Steve Peters <steve@fisharerojo.org>
Date: Tue, 14 Jun 2005 08:16:38 +0000 (-0500)
Subject: Fix for SEGV in ext/B/t/xref.t on OpenBSD
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=c0b2046149892c54c3798523a6716164b16fe59d;p=p5sagit%2Fp5-mst-13.2.git

Fix for SEGV in ext/B/t/xref.t on OpenBSD
Message-ID: <20050614131638.GA24771@mccoy.peters.homeunix.org>

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

diff --git a/ext/B/B.xs b/ext/B/B.xs
index cedaf08..d317fb9 100644
--- a/ext/B/B.xs
+++ b/ext/B/B.xs
@@ -1214,8 +1214,8 @@ SvPV(sv)
 	B::PV	sv
     CODE:
         ST(0) = sv_newmortal();
-        if( SvPOK(sv) ) { 
-            sv_setpvn(ST(0), SvPVX_const(sv), SvCUR(sv));
+        if( SvPOK(sv) ) {
+            sv_setpv(ST(0), SvPV_nolen_const(sv));
             SvFLAGS(ST(0)) |= SvUTF8(sv);
         }
         else {