# New Ticket Created by Kevan Benson
# Please include the string: [perl #67268]
# in the subject line of all future correspondence about this issue.
# <URL: http://rt.perl.org/rt3/Ticket/Display.html?id=67268 >
--
-Kevan Benson
-A-1 Networks
>From e74a445184e0d503e80a59e2d99732596a0a284e Mon Sep 17 00:00:00 2001
From: Kevan Benson <kben...@brinstar.netcrucial.com>
Date: Mon, 6 Jul 2009 21:10:52 -0700
Subject: [PATCH] Patch to change bahavior of .push 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 b3091fe..4a2b454 100644
--- a/src/classes/Array.pir
+++ b/src/classes/Array.pir
@@ -175,7 +175,7 @@ Add C<args> to the end of the Array.
it_loop_end:
$I0 = elements self
splice self, args, $I0, 0
- .tailcall self.'elems'()
+ .return (self)
type_error:
'die'('Type check failure in push')
.end
--
1.5.2.1
