don't complain about unused 'our' declarations

perl6 · Mar 31, 2011 · a105156 · a105156
1 parent 430e3d6
commit a105156
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/STD.pm6 b/STD.pm6
@@ -5203,6 +5203,7 @@ method getsig {
             next if $desc<used>;
             next if $desc<rebind>;
             next if $desc<dynamic>;
+            next if $desc<scope> eq 'our';
             next if $desc<scope> eq 'state';
             next if $desc<stub>;
             my $pos = $desc<declaredat> // self.pos;