X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=Upper.xs;h=367658cdb7a8321fc2be70f85e9424f557cbecd4;hb=f00fcddb3be61894deea2885620e3acc6967e5c0;hp=d628f1d3e47d0637c1ffbb058f4e79ada7c5bbd6;hpb=1b0e71d2be514235f4f6b5d6d167aa543b536489;p=perl%2Fmodules%2FScope-Upper.git

diff --git a/Upper.xs b/Upper.xs
index d628f1d..367658c 100644
--- a/Upper.xs
+++ b/Upper.xs
@@ -247,7 +247,7 @@ STATIC void su_save_helem(pTHX_ HV *hv, SV *keysv, SV *val) {
  if (val) { /* local $x{$keysv} = $val; */
   SvSetMagicSV(*svp, val);
  } else {   /* local $x{$keysv}; delete $x{$keysv}; */
-  hv_delete_ent(hv, keysv, G_DISCARD, HeHASH(he));
+  (void)hv_delete_ent(hv, keysv, G_DISCARD, HeHASH(he));
  }
 }