# New Ticket Created by Kevan Benson
# Please include the string: [perl #67270]
# in the subject line of all future correspondence about this issue.
# <URL: http://rt.perl.org/rt3/Ticket/Display.html?id=67270 >
Forgot to also fix .unshift in previous patch...
--
-Kevan Benson
-A-1 Networks
>From a994184685bfb08a34c76cf2f1ba6a4f9ce10ea5 Mon Sep 17 00:00:00 2001
From: Kevan Benson <kben...@brinstar.netcrucial.com>
Date: Mon, 6 Jul 2009 21:21:16 -0700
Subject: [PATCH] Patch to change bahavior of .unshift to return modified array, not number of elements
---
src/classes/Array.pir | 2 +-
1 files changed, 1 insertions(+), 1 deletions(-)
diff --git a/src/classes/Array.pir b/src/classes/Array.pir
index 4a2b454..6b62722 100644
--- a/src/classes/Array.pir
+++ b/src/classes/Array.pir
@@ -238,7 +238,7 @@ Adds C<args> to the beginning of the Array.
goto it_loop
it_loop_end:
splice self, args, 0, 0
- .tailcall self.'elems'()
+ .return (self)
type_error:
'die'('Type check failure in push')
.end
--
1.5.2.1
