This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Nobody has used SvPVbyte_force?
authorSADAHIRO Tomoyuki <BQW10602@nifty.com>
Sun, 21 Mar 2004 21:49:53 +0000 (06:49 +0900)
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Sun, 21 Mar 2004 16:40:27 +0000 (16:40 +0000)
Message-Id: <20040321213628.2461.BQW10602@nifty.com>

p4raw-id: //depot/perl@22548

sv.h

diff --git a/sv.h b/sv.h
index 11927cd..fab44eb 100644 (file)
--- a/sv.h
+++ b/sv.h
@@ -1006,7 +1006,7 @@ scalar.
 
 #define SvPVbyte_force(sv, lp) \
     ((SvFLAGS(sv) & (SVf_POK|SVf_UTF8|SVf_THINKFIRST)) == (SVf_POK) \
-     ? ((lp = SvCUR(sv)), SvPVX(sv)) : sv_pvbyte_force(sv, &lp))
+     ? ((lp = SvCUR(sv)), SvPVX(sv)) : sv_pvbyten_force(sv, &lp))
 
 #define SvPVbyte_nolen(sv) \
     ((SvFLAGS(sv) & (SVf_POK|SVf_UTF8)) == (SVf_POK)\