Fix degenerate /< hello >/.

rakudo · Jan 26, 2013 · c356d8e · c356d8e
1 parent 1553b11
commit c356d8e
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/src/Perl6/Actions.pm b/src/Perl6/Actions.pm
@@ -5839,7 +5839,8 @@ class Perl6::RegexActions is QRegex::P6Regex::Actions does STDActions {
     method metachar:sym<qw>($/) {
         my $qast := QAST::Regex.new( :rxtype<alt>, :node($/) );
         my $nib  := $<nibble>.ast[0];
-        for @($nib) {
+        my @nibs := +@($nib) ?? @($nib) !! [$nib];
+        for @nibs {
             unless $_.has_compile_time_value {
                 $/.CURSOR.panic("Quote words construct too complex to use in a regex");
             }