Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

Remove ALL THE WARNINGS from compiler.t

  • Loading branch information...
commit 5353babe11370d3e0cefc2d38634dcaf5f94cfd1 1 parent c0f8dc1
@tadzik tadzik authored
Showing with 2 additions and 2 deletions.
  1. +2 −2 lib/Yapsi.pm
View
4 lib/Yapsi.pm
@@ -173,7 +173,7 @@ class Yapsi::Perl6::Actions {
if $key eq "declaration" {
my $name = $m<variable> ?? ~$m<variable>
!! '&' ~ $m<subdecl><subname>;
- my $our = $m<declarator> eq 'our';
+ my $our = ($m<declarator> // '') eq 'our';
push @vars, { :$name, :$our };
}
};
@@ -289,7 +289,7 @@ class Yapsi::Perl6::Actions {
method variable($/) {
die qq[Variable "$/" used but not declared]
- if %!vars{~$/} eq 'declaration?';
+ if (%!vars{~$/} // '') eq 'declaration?';
unless %!vars.exists(~$/) {
%!vars{~$/} = 'declaration?';
}
Please sign in to comment.
Something went wrong with that request. Please try again.