RT #125123: Improve error message when pushing/unshifting to an int-t…

…yped array
rakudo · Nov 14, 2015 · 94ad45b · 94ad45b
1 parent f5fbcde
commit 94ad45b
Showing 1 changed file with 14 additions and 0 deletions.
diff --git a/src/core/native_array.pm b/src/core/native_array.pm
@@ -79,6 +79,13 @@ class array does Iterable is repr('VMArray') {
             nqp::push_i(self, $value);
             self
         }
+        multi method push(array:D: Mu \value) {
+            X::TypeCheck.new(
+                operation => 'push to array',
+                got       => value,
+                expected  => T,
+            ).throw;
+        }
         multi method append(array:D: @values) {
             fail X::Cannot::Lazy.new(:action<push>, :what(self.^name))
               if @values.is-lazy;
@@ -106,6 +113,13 @@ class array does Iterable is repr('VMArray') {
             nqp::unshift_i(self, $value);
             self
         }
+        multi method unshift(array:D: Mu \value) {
+            X::TypeCheck.new(
+                operation => 'push to array',
+                got       => value,
+                expected  => T,
+            ).throw;
+        }
         multi method unshift(array:D: @values) {
             fail X::Cannot::Lazy.new(:action<unshift>, :what(self.^name))
               if @values.is-lazy;