Remove an unused variable

[perl/modules/indirect.git] / indirect.xs

diff --git a/indirect.xs b/indirect.xs
index a5d5b30afa5716b944f7db0376e03526fa8e0397..f0c42ef1044b3917779688b3e89b9b4877d53729 100644 (file)
--- a/indirect.xs
+++ b/indirect.xs
@@ -485,7 +485,6 @@ STATIC void indirect_map_store(pTHX_ const OP *o, const char *src, SV *sv, line_
 
 STATIC const indirect_op_info_t *indirect_map_fetch(pTHX_ const OP *o) {
 #define indirect_map_fetch(O) indirect_map_fetch(aTHX_ (O))
 
 STATIC const indirect_op_info_t *indirect_map_fetch(pTHX_ const OP *o) {
 #define indirect_map_fetch(O) indirect_map_fetch(aTHX_ (O))

- const indirect_op_info_t *val;

  dMY_CXT;
 
  if (MY_CXT.linestr != SvPVX_const(PL_linestr))
  dMY_CXT;
 
  if (MY_CXT.linestr != SvPVX_const(PL_linestr))