X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=Upper.xs;h=61f8560e5bf4b957971e31d2d65260f41984ef66;hb=34257ad32ccc3d743ea1c90fa6cc051c7821e82f;hp=7a2a79a114ee1330709ad1019286c0ba3aa0b1e1;hpb=625f57f60131dbb27d306e993cbfb97aceda2489;p=perl%2Fmodules%2FScope-Upper.git

diff --git a/Upper.xs b/Upper.xs
index 7a2a79a..61f8560 100644
--- a/Upper.xs
+++ b/Upper.xs
@@ -401,6 +401,7 @@ STATIC void su_ud_localize_init(pTHX_ su_ud_localize *ud, SV *sv, SV *val, SV *e
   case SVt_PVCV:
   case SVt_PVGV:
    deref = 0;
+  default:
    break;
  }
  /* When deref is set, val isn't NULL */