X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=Upper.xs;h=657f01ce9637e05769478ccde15d90547bb192b1;hb=33d8f50585aa060e71a82a5fd414e114e9b1c1c1;hp=b2344b9804c0be57573c894ad2080a60e9981cb3;hpb=c05ad1b89116d3c5312b904ba20cd53d473443fd;p=perl%2Fmodules%2FScope-Upper.git

diff --git a/Upper.xs b/Upper.xs
index b2344b9..657f01c 100644
--- a/Upper.xs
+++ b/Upper.xs
@@ -115,7 +115,7 @@ STATIC void su_save_aelem(pTHX_ AV *av, SV *key, SV *val) {
   preeminent = av_exists(av, idx);
 
  svp = av_fetch(av, idx, 1);
- if (!*svp || *svp == &PL_sv_undef) croak(PL_no_aelem, idx);
+ if (!svp || *svp == &PL_sv_undef) croak(PL_no_aelem, idx);
 
  if (preeminent)
   save_aelem(av, idx, svp);