From e71d56954a43020b7a44cbcf7aaafd5fb7e0067f Mon Sep 17 00:00:00 2001
From: Vasily Chekalkin <bacek@bacek.com>
Date: Wed, 25 Aug 2010 14:58:41 +1000
Subject: [PATCH] Use @a.push form instead of pir::push

---
 src/setting/Regex.pm | 4 ++--
 t/setting/04-regex.t | 2 +-
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/src/setting/Regex.pm b/src/setting/Regex.pm
index 1a6f5c7..1748d6b 100644
--- a/src/setting/Regex.pm
+++ b/src/setting/Regex.pm
@@ -72,12 +72,12 @@ our sub split ($regex, $text) {
             my $from := $match.from();
             my $to := $match.to();
             my $prefix := pir::substr__sPii($text, $pos, $from-$pos);
-            pir::push__vPP(@result, $prefix);
+            @result.push($prefix);
             $pos := $match.to();
         } else {
             my $len := pir::length($text);
             if $pos < $len {
-                pir::push__vPP(@result, pir::substr__ssi($text, $pos) );
+                @result.push(pir::substr__ssi($text, $pos) );
             }
             $looking := 0;
         }
diff --git a/t/setting/04-regex.t b/t/setting/04-regex.t
index 6234dca..295a23c 100644
--- a/t/setting/04-regex.t
+++ b/t/setting/04-regex.t
@@ -6,6 +6,6 @@ plan(2);
 
 my @a := split(/\d/, 'a23b5d');
 ok(+@a == 4, 'split produced 4 chunks');
-ok((pir::join__SSP('!',@a) eq 'a!!b!d'), 'got right chunks');
+ok((@a.join('!') eq 'a!!b!d'), 'got right chunks');
 
 # vim: ft=perl6