diff options
| author | Steve Peters <steve@fisharerojo.org> | 2005-06-14 03:16:38 -0500 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2005-06-14 13:22:20 +0000 |
| commit | c0b2046149892c54c3798523a6716164b16fe59d (patch) | |
| tree | 4d6e3f4531f2c47ce161b60bfccf84bc150d9c11 | |
| parent | a6c1bb3f5e9320b43051212aaffdd44856750779 (diff) | |
| download | perl-c0b2046149892c54c3798523a6716164b16fe59d.tar.gz | |
Fix for SEGV in ext/B/t/xref.t on OpenBSD
Message-ID: <20050614131638.GA24771@mccoy.peters.homeunix.org>
p4raw-id: //depot/perl@24838
| -rw-r--r-- | ext/B/B.xs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/ext/B/B.xs b/ext/B/B.xs index cedaf086ef..d317fb98bc 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 { |