Perlito5 - add standard tests for split() - failed 49/81

fglock · Oct 22, 2014 · 579f6b2 · 579f6b2
1 parent 2547cec
commit 579f6b2
Show file tree

Hide file tree

Showing 3 changed files with 475 additions and 0 deletions.
diff --git a/perlito5.pl b/perlito5.pl
@@ -10197,6 +10197,8 @@ package Perlito5::AST::Apply;
         my $level = shift;
         my $wantarray = shift;
         my @js;
+        push(@{$self->{'arguments'}}, Perlito5::AST::Var->new('sigil' => '$', 'namespace' => '', 'name' => '_'))
+            if @{$self->{'arguments'}} < 2;
         my $arg = $self->{'arguments'}->[0];
         if ($arg && $arg->isa('Perlito5::AST::Apply') && $arg->{'code'} eq 'p5:m') {
             push(@js, 'new RegExp(' . $arg->{'arguments'}->[0]->emit_javascript2() . ', ' . '"' . $arg->{'arguments'}->[1] . '"' . ')');

diff --git a/src5/lib/Perlito5/Javascript2/Emitter.pm b/src5/lib/Perlito5/Javascript2/Emitter.pm
@@ -2576,6 +2576,8 @@ package Perlito5::AST::Apply;
             my $level     = shift;
             my $wantarray = shift;
             my @js;
+            push @{ $self->{arguments} }, Perlito5::AST::Var->new( sigil => '$', namespace => '', name => '_' )
+                if @{ $self->{arguments} } < 2;
             my $arg = $self->{arguments}->[0];
             if ( $arg
               && $arg->isa('Perlito5::AST::Apply')