Skip to content
Browse files

[t/spec] random bug suppression

git-svn-id: http://svn.pugscode.org/pugs@28563 c213334d-75ef-0310-aa23-eaa082d1ae64
  • Loading branch information...
1 parent 1c08c8a commit d228aa7226e21d504bfbaa16d7d26c43ea26064b lwall committed
Showing with 6 additions and 1 deletion.
  1. +4 −0 CORE.setting
  2. +1 −1 Cursor.pmc
  3. +1 −0 STD.pm
View
4 CORE.setting
@@ -344,4 +344,8 @@ my proto wait { }
my proto kill { }
my proto sleep { }
+my package PROCESS {
+ my %ENV is export;
+}
+
YOU_ARE_HERE;
View
2 Cursor.pmc
@@ -2578,7 +2578,7 @@ sub add_enum { my $self = shift;
return unless $expr;
local $::SCOPE = 'constant';
# XXX complete kludge, really need to eval EXPR
- $expr =~ s/<\S+>//g; # handle :name<string>
+ $expr =~ s/:(\w+)<\S+>/$1/g; # handle :name<string>
for ($expr =~ m/([a-zA-Z_]\w*)/g) {
$self->add_name($type . "::$_");
$self->add_name($_);
View
1 STD.pm
@@ -3429,6 +3429,7 @@ token dottyop {
:dba('dotty method or postfix')
[
| <methodop>
+ | <colonpair>
| <!alpha> <postop> { $<O> = $<postop><O>; $<sym> = $<postop><sym>; } # only non-alpha postfixes have dotty form
]
}

0 comments on commit d228aa7

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