Get rid of an unused variable

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

diff --git a/indirect.xs b/indirect.xs
index e8250f14934373f601fb0c2069fa03b16f0e4968..1f1ab9a69b3c9642dc37da47da2a615e1a147af1 100644 (file)
--- a/indirect.xs
+++ b/indirect.xs
@@ -87,7 +87,6 @@ STATIC const char *indirect_map_fetch(pTHX_ const OP *o, SV ** const name) {
 STATIC void indirect_map_delete(pTHX_ const OP *o) {
 #define indirect_map_delete(O) indirect_map_delete(aTHX_ (O))
  char buf[32];
- SV *val;
 
  hv_delete(indirect_map, buf, OP2STR(o), G_DISCARD);
 }