Skip to content
Browse files

Merge pull request #4 from zoffixznet/fix-failures

Fix some failures
  • Loading branch information...
2 parents ad28ed9 + bcb228c commit d6a018cdd3e5391e59e1e8d20548997708c330be @masak committed Dec 10, 2015
Showing with 7 additions and 7 deletions.
  1. +1 −1 lib/GGE/Exp.pm
  2. +2 −2 lib/GGE/Match.pm
  3. +2 −2 lib/GGE/OPTable.pm
  4. +1 −1 t/03-optable.t
  5. +1 −1 t/perl6regex/01-regex.t
View
2 lib/GGE/Exp.pm
@@ -76,7 +76,7 @@ class GGE::Exp is GGE::Match {
return $source;
}
else {
- my $binary = eval $source
+ my $binary = EVAL $source
or die ~$!;
return $binary;
}
View
4 lib/GGE/Match.pm
@@ -5,8 +5,8 @@ class GGE::Perl6Regex {}
# This is a workaround. See the postcircumfix:<{ }> comments below.
class Store {
- has %!hash is rw;
- has @!array is rw;
+ has %!hash;
+ has @!array;
method hash-access($key) { %!hash{$key} }
method hash-exists($key) { %!hash.exists($key) }
View
4 lib/GGE/OPTable.pm
@@ -79,7 +79,7 @@ class GGE::OPTable {
my $keylen = $key.chars;
my $key_firstchar = $key.substr(0, 1);
# RAKUDO: max=
- if $key_firstchar && (!%!klen.exists($key_firstchar)
+ if $key_firstchar && (%!klen{$key_firstchar}:!exists
|| %!klen{$key_firstchar} < $keylen) {
%!klen{$key_firstchar} = $keylen;
}
@@ -94,7 +94,7 @@ class GGE::OPTable {
my $target = $mob ~~ GGE::Match ?? $mob.target !! $mob;
my $pos = $mob ~~ GGE::Match ?? $mob.to !! 0;
$m.from = $pos;
- my $tighter = defined %opts<tighter> && %!tokens.exists(%opts<tighter>)
+ my $tighter = defined %opts<tighter> && (%!tokens{%opts<tighter>}:exists)
?? %!tokens{%opts<tighter>}<precedence>
!! '';
my (@termstack, @tokenstack, @operstack);
View
2 t/03-optable.t
@@ -195,4 +195,4 @@ sub tree($match) {
return $r;
}
-done_testing;
+done-testing;
View
2 t/perl6regex/01-regex.t
@@ -80,4 +80,4 @@ sub backslash_escape($string) {
.subst(/'\\x' (<[0..9a..f]>**{2..4})/, { chr(:16($0)) }, :g);
}
-done_testing;
+done-testing;

0 comments on commit d6a018c

Please sign in to comment.
Something went wrong with that request. Please try again.