Fix segfault when localizing array elements with an invalid negative index

[perl/modules/Scope-Upper.git] / Upper.xs

diff --git a/Upper.xs b/Upper.xs
index b2344b9804c0be57573c894ad2080a60e9981cb3..657f01ce9637e05769478ccde15d90547bb192b1 100644 (file)
--- 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);