dis-junctive patterns

[Gaal Yahas]

In pugs, r7961:

     my @pats = /1/, /2/;
     say "MATCH" if 1 ~~ any @pats; # MATCH
     say "MATCH" if 0 ~~ any @pats; # no match

So far so good. But:

     my $junc = any @pats;
     say "MATCH" if 1 ~~ $junc; # no match
     say "MATCH" if 0 ~~ $junc; # no match

Bug? Feature?

-- 
Gaal Yahas <[EMAIL PROTECTED]>
http://gaal.livejournal.com/