Skip Menu |
Report information
Id: 131089
Status: open
Priority: 0/
Queue: perl6

Owner: Nobody
Requestors: cpan [at] zoffix.com
Cc:
AdminCc:

Severity: (no value)
Tag: (no value)
Platform: (no value)
Patch Status: (no value)
VM: (no value)



Subject: Different parsing of combined colonpairs
Download (untitled) / with headers
text/plain 734b
If joined colonpairs are after a position arg, only the first colonpair gets registered: <Zoffix__> m: -> *@_, *%_ { dd [@_, %_] }("/", :r:w:d:x) <camelia> rakudo-moar 1b9d53: OUTPUT: «[["/"], {:r}]␤» But if they're first in line, then all do: <Zoffix__> m: -> *@_, *%_ { dd [@_, %_] }(:r:w:d:x, "/") <camelia> rakudo-moar 1b9d53: OUTPUT: «[["/"], {:d, :r, :w, :x}]␤» When in a [], only first one is obtained as well: <Zoffix__> m: dd [:r:w:d:x] <camelia> rakudo-moar 1b9d53: OUTPUT: «[:r]␤» And when in a {}, all are obtained, but only the first one gets value True (related?) <Zoffix__> m: dd {:r:w:d:x} <camelia> rakudo-moar 1b9d53: OUTPUT: «Hash % = {:d(1), :r, :w(1), :x(1)}␤»
I wonder, is it a dup of RT #124553 and RT #125353 ?

On 2017-04-02 04:50:15, cpan@zoffix.com wrote:
Show quoted text
> If joined colonpairs are after a position arg, only the first
> colonpair gets registered:
>
> <Zoffix__> m: -> *@_, *%_ { dd [@_, %_] }("/", :r:w:d:x)
> <camelia> rakudo-moar 1b9d53: OUTPUT: «[["/"], {:r}]␤»
>
> But if they're first in line, then all do:
>
> <Zoffix__> m: -> *@_, *%_ { dd [@_, %_] }(:r:w:d:x, "/")
> <camelia> rakudo-moar 1b9d53: OUTPUT: «[["/"], {:d, :r, :w, :x}]␤»
>
> When in a [], only first one is obtained as well:
> <Zoffix__> m: dd [:r:w:d:x]
> <camelia> rakudo-moar 1b9d53: OUTPUT: «[:r]␤»
>
> And when in a {}, all are obtained, but only the first one gets value
> True (related?)
> <Zoffix__> m: dd {:r:w:d:x}
> <camelia> rakudo-moar 1b9d53: OUTPUT: «Hash % = {:d(1), :r, :w(1),
> :x(1)}␤»




This service is sponsored and maintained by Best Practical Solutions and runs on Perl.org infrastructure.

For issues related to this RT instance (aka "perlbug"), please contact perlbug-admin at perl.org