This is a live mirror of the Perl 5 development currently hosted at
https://github.com/perl/perl5
https://perl5.git.perl.org
/
perl5.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
33f01dd
)
add B::PV::{LEN,CUR}
author
Doug MacEachern
<dougm@covalent.net>
Sun, 27 Jun 1999 22:43:25 +0000
(15:43 -0700)
committer
Gurusamy 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
patch
|
blob
|
blame
|
history
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