Re: [perl #65878] Rakudo shouldn't allow metaops with the same modifier twice in a row

2009-05-24 Thread Larry Wall
On Thu, May 21, 2009 at 07:20:57PM +0200, Gianni Ceccarelli wrote: : On 2009-05-21 Larry Wall wrote: : > : rakudo: sub infix:($a,$b) { $a ~ '-' ~ $b }; sub : > : infix:($a,$b) { $a ~ '_' ~ $b }; say 'x' R 'y'; say 'x' RR 'y'; : > : rakudo e6b463: OUTPUT«x-y␤x_y␤» : > : now, apart from "don't do

[perl #65878] Rakudo shouldn't allow metaops with the same modifier twice in a row

2009-05-21 Thread Carl Mäsak via RT
Larry (>): > I don't see a bug here. First, there's no prohibition on multiple > similar metas anymore. But with regard to the example above, metas > are parsed as their own tokens, and the infix: is longer than > the meta R, so should take precedence under LTM. We used to try > to form tokens o

Re: [perl #65878] Rakudo shouldn't allow metaops with the same modifier twice in a row

2009-05-21 Thread Gianni Ceccarelli
On 2009-05-21 Larry Wall wrote: > : rakudo: sub infix:($a,$b) { $a ~ '-' ~ $b }; sub > : infix:($a,$b) { $a ~ '_' ~ $b }; say 'x' R 'y'; say 'x' RR 'y'; > : rakudo e6b463: OUTPUT«x-y␤x_y␤» > : now, apart from "don't do that", what should happen? > : [snip] > : jnthn: about the meta-operator co

Re: [perl #65878] Rakudo shouldn't allow metaops with the same modifier twice in a row

2009-05-21 Thread Larry Wall
On Thu, May 21, 2009 at 02:56:23AM -0700, Carl Mäsak wrote: : # New Ticket Created by "Carl Mäsak" : # Please include the string: [perl #65878] : # in the subject line of all future correspondence about this issue. : # http://rt.perl.org/rt3/Ticket/Display.html?id=65878 > : : : rakudo: sub i

[perl #65878] Rakudo shouldn't allow metaops with the same modifier twice in a row

2009-05-21 Thread Carl Mäsak
# New Ticket Created by "Carl Mäsak" # Please include the string: [perl #65878] # in the subject line of all future correspondence about this issue. # http://rt.perl.org/rt3/Ticket/Display.html?id=65878 > rakudo: sub infix:($a,$b) { $a ~ '-' ~ $b }; sub infix:($a,$b) { $a ~ '_' ~ $b }; say '