From: Doug MacEachern <dougm@covalent.net>
Date: Sun, 27 Jun 1999 22:43:25 +0000 (-0700)
Subject: add B::PV::{LEN,CUR}
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=445a12f622bad7d38f7d9dd52674ccc07f19205c;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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