Rafael Garcia-Suarez wrote:
> There's indeed a bug, since the tokenizer doesn't set its state
> after parsing qw/..../. Fixed by this nit :
>
> --- toke.c (revision 4822)
> +++ toke.c (working copy)
> @@ -4956,6 +4956,7 @@
> s = scan_str(s,FALSE,FALSE);
> if (!s)
> missingterm((char*)0);
> + PL_expect = XOPERATOR;
> force_next(')');
> if (SvCUR(PL_lex_stuff)) {
> OP *words = Nullop;
> End
I applied this as change 24560 to bleadperl, with a regression test that
says :
is( (join ',', (qw(a b c) x 3)), 'a,b,c,a,b,c,a,b,c', 'x on qw produces list' );
--
The universe (which others call the Library) is composed of an indefinite and
perhaps infinite number of hexagonal galleries.
-- Borges
