Perlito5 - java - unshift() for native types

fglock · Jun 19, 2017 · 909bec6 · 909bec6
1 parent 2a10157
commit 909bec6
Show file tree

Hide file tree

Showing 2 changed files with 8 additions and 4 deletions.
diff --git a/perlito5.pl b/perlito5.pl
@@ -28048,8 +28048,10 @@
         return this.aset(i, new " . $perl . "(s));
     }
     public PlObject push(" . $native . " s) {
-        this.a.add(new " . $perl . "(s));
-        return this.length_of_array();
+        return this.push(new " . $perl . "(s));
+    }
+    public PlObject unshift(" . $native . " s) {
+        return this.unshift(new " . $perl . "(s));
     }
 " : ()
         } sort {;

diff --git a/src5/lib/Perlito5/Java/Runtime.pm b/src5/lib/Perlito5/Java/Runtime.pm
@@ -5664,8 +5664,10 @@ EOT
         return this.aset(i, new $perl(s));
     }
     public PlObject push($native s) {
-        this.a.add(new $perl(s));
-        return this.length_of_array();
+        return this.push(new $perl(s));
+    }
+    public PlObject unshift($native s) {
+        return this.unshift(new $perl(s));
     }
 " : ()
             }