add B::PV::{LEN,CUR}
Doug MacEachern [Sun, 27 Jun 1999 22:43:25 +0000 (15:43 -0700)]
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