add B::PV::{LEN,CUR}

	Message-ID: <Pine.LNX.4.10.9906272236430.389-100000@mojo.eng.cp.net>

p4raw-id: //depot/perl@3642

diff --git a/ext/B/B.xs b/ext/B/B.xs
index 79610c3..39e381d 100644 (file)
--- a/ext/B/B.xs
+++ b/ext/B/B.xs
@@ -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