projects
/
platform
/
upstream
/
perl.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
9e9ecfd
)
XS::APItest: remove unused var
author
David Mitchell
<davem@iabyn.com>
Sun, 24 Nov 2013 14:44:40 +0000
(14:44 +0000)
committer
David Mitchell
<davem@iabyn.com>
Sun, 24 Nov 2013 20:24:24 +0000
(20:24 +0000)
(see Message-ID: <
20131121221646
.GB21945@fysh.org>)
ext/XS-APItest/APItest.xs
patch
|
blob
|
history
diff --git
a/ext/XS-APItest/APItest.xs
b/ext/XS-APItest/APItest.xs
index
40eaa96
..
f877047
100644
(file)
--- a/
ext/XS-APItest/APItest.xs
+++ b/
ext/XS-APItest/APItest.xs
@@
-2545,13
+2545,12
@@
void
test_rv2cv_op_cv()
PROTOTYPE:
PREINIT:
- GV *troc_gv
, *wibble_gv
;
+ GV *troc_gv;
CV *troc_cv;
OP *o;
CODE:
troc_gv = gv_fetchpv("XS::APItest::test_rv2cv_op_cv", 0, SVt_PVGV);
troc_cv = get_cv("XS::APItest::test_rv2cv_op_cv", 0);
- wibble_gv = gv_fetchpv("XS::APItest::wibble", 0, SVt_PVGV);
o = newCVREF(0, newGVOP(OP_GV, 0, troc_gv));
if (rv2cv_op_cv(o, 0) != troc_cv) croak_fail();
if (rv2cv_op_cv(o, RV2CVOPCV_RETURN_NAME_GV) != (CV*)troc_gv)