This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
add B::PV::{LEN,CUR}
authorDoug MacEachern <dougm@covalent.net>
Sun, 27 Jun 1999 22:43:25 +0000 (15:43 -0700)
committerGurusamy Sarathy <gsar@cpan.org>
Wed, 7 Jul 1999 10:03:24 +0000 (10:03 +0000)
Message-ID: <Pine.LNX.4.10.9906272236430.389-100000@mojo.eng.cp.net>

p4raw-id: //depot/perl@3642

ext/B/B.xs

index 79610c3..39e381d 100644 (file)
@@ -838,6 +838,14 @@ SvPV(sv)
        ST(0) = sv_newmortal();
        sv_setpvn(ST(0), SvPVX(sv), SvCUR(sv));
 
+STRLEN
+SvLEN(sv)
+       B::PV   sv
+
+STRLEN
+SvCUR(sv)
+       B::PV   sv
+
 MODULE = B     PACKAGE = B::PVMG       PREFIX = Sv
 
 void