Skip to content

Commit

Permalink
Browse files Browse the repository at this point in the history
Fix bugs found from pegex test suite
  • Loading branch information
ingydotnet committed Mar 15, 2013
1 parent 8701219 commit 2df4c72
Show file tree
Hide file tree
Showing 2 changed files with 3 additions and 3 deletions.
4 changes: 2 additions & 2 deletions lib/TestML/Compiler/Lite.pm
Expand Up @@ -111,7 +111,7 @@ sub parse_expression {

while (not $self->done and $self->peek !~ /^($ENDING|$COMP)$/) {
my $token = $self->pop;
if ($token =~ $NUM) {
if ($token =~ /^$NUM$/) {
push @$calls, TestML::Num->new(value => $token);
}
elsif ($token =~/^$QSTR$/) {
Expand All @@ -125,7 +125,7 @@ sub parse_expression {
}
push @$calls, $call;
}
elsif ($token =~ /^$POINT/) {
elsif ($token =~ /^$POINT$/) {
$token =~ /($WORD)/ or die;
push @{$self->{points}}, $1;
push @$calls, TestML::Point->new(name => $1);
Expand Down
2 changes: 1 addition & 1 deletion lib/TestML/Runtime.pm
Expand Up @@ -201,7 +201,7 @@ sub run_native {
$self->{error} = $@;
return TestML::None->new;
}
elsif ($value->isa('TestML::Object')) {
elsif (UNIVERSAL::isa($value, 'TestML::Object')) {
return $value;
}
else {
Expand Down

0 comments on commit 2df4c72

Please sign in to comment.