X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=Upper.xs;h=264bfdad3b712a7d3423a9a49c98e82c4ba838b3;hb=ac794d1f5c02a97322dad2aa7e435466395cb928;hp=8814d9dd831bba9384865f2a38f35ca045cf8ea9;hpb=8025876416295c1957f9ece5d2770dd00e4d65a5;p=perl%2Fmodules%2FScope-Upper.git diff --git a/Upper.xs b/Upper.xs index 8814d9d..264bfda 100644 --- a/Upper.xs +++ b/Upper.xs @@ -76,8 +76,7 @@ STATIC I32 su_av_preeminent(pTHX_ AV *av, I32 key) { MAGIC *mg; HV *stash; - if (!av) - return 0; + if (!av) return 0; if (SvCANEXISTDELETE(av)) return av_exists(av, key); @@ -131,8 +130,7 @@ STATIC I32 su_hv_preeminent(pTHX_ HV *hv, SV *keysv) { MAGIC *mg; HV *stash; - if (!hv) - return 0; + if (!hv) return 0; if (SvCANEXISTDELETE(hv) || mg_find((SV *) hv, PERL_MAGIC_env)) return hv_exists_ent(hv, keysv, 0);