Eliminate the last remaining use of parse_name in the Grammar.

rakudo · Apr 15, 2012 · 1639834 · 1639834
1 parent 0227a99
commit 1639834
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/Perl6/Grammar.pm b/src/Perl6/Grammar.pm
@@ -688,10 +688,10 @@ grammar Perl6::Grammar is HLL::Grammar {
         <module_name> [ <.spacey> <arglist> ]? <.ws>
         :my $*HAS_SELF := '';
         {
-            my @name := parse_name(~$<module_name><longname>);
+            my $longname := $*W.disect_longname($<module_name><longname>);
             my $module;
             my $found := 0;
-            try { $module := $*W.find_symbol(@name); $found := 1; }
+            try { $module := $*W.find_symbol($longname.components()); $found := 1; }
             if $found {
                 do_import($module.WHO, $<arglist>);
             }