X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=Upper.xs;fp=Upper.xs;h=8814d9dd831bba9384865f2a38f35ca045cf8ea9;hb=e7bb90c3e0eb82712d5eda47563ca77269bbdbac;hp=799a2f38b63ba48f3efc2ec7b105c3f7034f466c;hpb=8e927c208cc7cf0afc3a651cdc9e97db6e1f8301;p=perl%2Fmodules%2FScope-Upper.git

diff --git a/Upper.xs b/Upper.xs
index 799a2f3..8814d9d 100644
--- a/Upper.xs
+++ b/Upper.xs
@@ -145,13 +145,13 @@ STATIC void su_save_helem(pTHX_ HV *hv, SV *keysv, SV **svp, I32 preeminent) {
   save_gp((GV *) *svp, 0);
   return;
  }
- if (!preeminent) {
+ if (preeminent)
+  save_helem(hv, keysv, svp);
+ else {
   STRLEN keylen;
   const char * const key = SvPV_const(keysv, keylen);
   SAVEDELETE(hv, savepvn(key, keylen),
                  SvUTF8(keysv) ? -(I32)keylen : (I32)keylen);
- } else {
-  save_helem(hv, keysv, svp);
  }
 }