sparse array should not act empty on shift

rakudo · Nov 21, 2015 · 888ef1b · 888ef1b
1 parent 95558bb
commit 888ef1b
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/src/core/Array.pm b/src/core/Array.pm
@@ -591,7 +591,9 @@ my class Array { # declared in BOOTSTRAP
         my $reified := nqp::getattr(self, List, '$!reified');
         nqp::existspos($reified, 0) || $todo.DEFINITE && $todo.reify-at-least(1)
             ?? nqp::shift($reified)
-            !! fail X::Cannot::Empty.new(:action<shift>, :what(self.^name));
+            !! nqp::elems($reified)
+                ?? Nil
+                !! fail X::Cannot::Empty.new(:action<shift>, :what(self.^name));
     }
 
     proto method splice(|) is nodal { * }