# New Ticket Created by Kevan Benson
# Please include the string: [perl #67272]
# in the subject line of all future correspondence about this issue.
# <URL: http://rt.perl.org/rt3/Ticket/Display.html?id=67272 >
Sorry to be spammy, forgot to add useful subject to previous two patch
emails. As such, these are resubmits for two patches I submitted within
the last 30 minutes.
--
-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
>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
