Use @a.push form instead of pir::push

perl6 · Aug 25, 2010 · e71d569 · e71d569
1 parent c7b2af5
commit e71d569
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 3 deletions.
diff --git 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
@@ -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