From 445a12f622bad7d38f7d9dd52674ccc07f19205c Mon Sep 17 00:00:00 2001
From: Doug MacEachern <dougm@covalent.net>
Date: Sun, 27 Jun 1999 15:43:25 -0700
Subject: [PATCH] add B::PV::{LEN,CUR}

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

p4raw-id: //depot/perl@3642
---
 ext/B/B.xs | 8 ++++++++
 1 file changed, 8 insertions(+)

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