Refactor handling of $*QSIGIL in token variable to avoid 'return ()'.

rakudo · Aug 18, 2010 · 72f5b8b · 72f5b8b
1 parent 7f39959
commit 72f5b8b
Showing 1 changed file with 1 addition and 10 deletions.
diff --git a/src/Perl6/Grammar.pm b/src/Perl6/Grammar.pm
@@ -790,16 +790,7 @@ token variable {
         | <sigil> <?[<[]> <postcircumfix>
         | $<sigil>=['$'] $<desigilname>=[<[/_!]>]
         | <sigil> <?{ $*IN_DECL }>
-        | <?>
-            {
-                if $*QSIGIL {
-                    return ();
-                }
-                else {
-                    $/.CURSOR.panic("Non-declarative sigil is missing its name");
-                }
-            }
-
+        | <!{ $*QSIGIL }> <.panic("Non-declarative sigil is missing its name")>
         ]
     ]
     [ <?{ $<twigil> && $<twigil>[0] eq '.' }>