# New Ticket Created by "gabriele renzi" # Please include the string: [perl #60976] # in the subject line of all future correspondence about this issue. # <URL: http://rt.perl.org/rt3/Ticket/Display.html?id=60976 >
The bug is visibile with the following line
subset GenderStr of Str where /^[m|f]$/ ;
for what I can tell the problem is due to the code to manage
type_declarator that only checks if a EXPR is a PAST::Block.
A regex is recognized as a block but it lacks some of the structure so
I get this error:
.Method 'push' not found for invocant of class 'Perl6;Grammar'
current instr.: 'parrot;Perl6;Grammar;Actions;_block5542' pc 141736
(src/gen_actions.pir:15745)
called from Sub 'parrot;Perl6;Grammar;Actions;_block5532' pc 141655
(src/gen_actions.pir:15715)
called from Sub 'parrot;Perl6;Grammar;Actions;type_declarator' pc
141016 (src/gen_actions.pir:15507)
called from Sub 'parrot;Perl6;Grammar;type_declarator' pc 56741
(src/gen_grammar.pir:15033)
called from Sub 'parrot;Perl6;Grammar;noun' pc 66124 (src/gen_grammar.pir:18653)
called from Sub 'parrot;Perl6;Grammar;expect_term' pc 60939
(src/gen_grammar.pir:16680)
called from Sub 'parrot;PGE;OPTable;parse' pc 1979
(compilers/pge/PGE/OPTable.pir:554)
called from Sub 'parrot;Perl6;Grammar;statement' pc 27186
(src/gen_grammar.pir:3693)
called from Sub 'parrot;Perl6;Grammar;statementlist' pc 24938
(src/gen_grammar.pir:2818)
called from Sub 'parrot;Perl6;Grammar;statement_block' pc 22476
(src/gen_grammar.pir:1847)
called from Sub 'parrot;Perl6;Grammar;TOP' pc 18370 (src/gen_grammar.pir:229)
called from Sub 'parrot;PCT;HLLCompiler;parse' pc 640
(src/PCT/HLLCompiler.pir:390)
called from Sub 'parrot;PCT;HLLCompiler;compile' pc 434
(src/PCT/HLLCompiler.pir:303)
called from Sub 'parrot;PCT;HLLCompiler;eval' pc 868
(src/PCT/HLLCompiler.pir:502)
called from Sub 'parrot;PCT;HLLCompiler;evalfiles' pc 1233
(src/PCT/HLLCompiler.pir:676)
called from Sub 'parrot;PCT;HLLCompiler;command_line' pc 1412
(src/PCT/HLLCompiler.pir:765)
called from Sub 'parrot;Perl6;Compiler;main' pc 16408 (perl6.pir:168)
Wich seem related to line 3025:
$past[0].push($param);
where possibly $past[0] is empty.
A simple solution is to check that the value passed actually is a
regex by verifying the .compiler attribute, and then manage it as just
another literal, constructing a block with smart matching.
The tests pass but I feel the "right" solution may be fixing the
Perl6Regex structure, even because similar code to build the subset
type is used in make_anon_subset.
Sadly, it's the first time I dive into the rakudo source and I do not
feel comfortable doing that.
Attached is the patch, and my minimal test suite, which should
probably go into the perl6 spec, which tests the definition of subsets
but not with a regex literal.
All tests pass, and spectest behaves the same as the unpatched version.
patch2
Description: Binary data
