Make "use lib" error more awesome

$ 6 'use lib' ===SORRY!=== Error while compiling -e Must specify at least one repository. Did you mean 'use lib "lib"' ?
rakudo · Mar 13, 2016 · a3422a0 · a3422a0
1 parent 24d42d1
commit a3422a0
Show file tree

Hide file tree

Showing 2 changed files with 11 additions and 3 deletions.
diff --git a/src/Perl6/World.nqp b/src/Perl6/World.nqp
@@ -812,9 +812,14 @@ class Perl6::World is HLL::World {
             elsif $*PKGDECL {
                 self.throw($/, 'X::Package::UseLib', :what($*PKGDECL) );
             }
-            my $registry := self.find_symbol(['CompUnit', 'RepositoryRegistry']);
-            for $arglist -> $arg {
-                $registry.use-repository($registry.repository-for-spec($arg));
+            if nqp::islist($arglist) {
+                my $registry := self.find_symbol(['CompUnit', 'RepositoryRegistry']);
+                for $arglist -> $arg {
+                    $registry.use-repository($registry.repository-for-spec($arg));
+                }
+            }
+            else {
+                self.throw($/, 'X::LibNone');
             }
         }
         else {

diff --git a/src/core/Exception.pm b/src/core/Exception.pm
@@ -1677,6 +1677,9 @@ my class X::Match::Bool is Exception {
     method message() { "Cannot use Bool as Matcher with '" ~ $.type ~ "'.  Did you mean to use \$_ inside a block?" }
 }
 
+my class X::LibNone does X::Comp {
+    method message { q/Must specify at least one repository.  Did you mean 'use lib "lib"' ?/ }
+}
 my class X::Package::UseLib does X::Comp {
     has $.what;
     method message { "Cannot 'use lib' inside a $.what" }