Localized nonexistant array elements should be deleted when their time comes, so...

[perl/modules/Scope-Upper.git] / t / 39-localize_elem-target.t

diff --git a/t/39-localize_elem-target.t b/t/39-localize_elem-target.t
index 6a8340754c2ace181ee3531e0a6ee1b7e5c9b17d..786ce5582c137fcde7e5f2b1df3535016a35fedb 100644 (file)
--- a/t/39-localize_elem-target.t
+++ b/t/39-localize_elem-target.t
@@ -26,7 +26,7 @@ our @a;
   localize_elem '@main::a', 4, 8, 0;
   is_deeply \@a, [ 4 .. 6, undef, 8 ], 'localize_elem "@a", 4, 8, 0 [ok]';
  }
- is_deeply \@a, [ 4 .. 6, undef, undef ], 'localize_elem "@a", 4, 8, 0 [end]';
+ is_deeply \@a, [ 4 .. 6 ], 'localize_elem "@a", 4, 8, 0 [end]';
 }
 
 {