Bring back "Undeclared routine" messages

Suggestions still broken however.
rakudo · Aug 13, 2015 · f8956ce · f8956ce
1 parent 64c3661
commit f8956ce
Showing 1 changed file with 4 additions and 3 deletions.
diff --git a/src/core/Exception.pm b/src/core/Exception.pm
@@ -770,7 +770,8 @@ my class X::Undeclared::Symbols does X::Comp {
             'used at line' ~ (@lu == 1 ?? ' ' !! 's ') ~ @lu.join(', ')
         }
         sub s(@s) {
-            "Did you mean '{ @s.join("', '") }'?";
+            # XXX GLR this dies when trying to stringify, even though @s is just the List ("sec")
+            #"Did you mean '{ @s.join("', '") }'?";
         }
         my $r = "";
         if %.post_types {
@@ -801,8 +802,8 @@ my class X::Undeclared::Symbols does X::Comp {
             for %.unk_routines.sort(*.key) {
                 $r ~= "    $_.key() &l($_.value)";
                 $r ~= " (in Perl 6 please use " ~ $obs{$_.key()} ~ " instead)" if $obs{$_.key()};
-                if +%.routine_suggestion{$_.key()} {
-                    $r ~= ". " ~ s(%.routine_suggestion{$_.key()});
+                if +%.routine_suggestion{$_.key()}.list {
+                    $r ~= ". " ~ s(%.routine_suggestion{$_.key()}.list);
                 }
                 $r ~= "\n";
             }