[Perl6/Module/Loader.pm] when a 'use' or 'need' cannot find a module,…

… just say so and exit with doing an unnecessary stack trace.
rakudo · May 16, 2010 · 32150d5 · 32150d5
1 parent 92508d6
commit 32150d5
Showing 1 changed file with 3 additions and 2 deletions.
diff --git a/src/Perl6/Module/Loader.pm b/src/Perl6/Module/Loader.pm
@@ -16,11 +16,12 @@ method need($name, %name_adverbs?) {
         Perl6::Module::Locator.find_module($name, @inc, %name_adverbs<ver>, %name_adverbs<auth>) !!
         Perl6::Module::Locator.find_module_no_conditions($name, @inc);
     if $pm_file eq '' {
-        pir::die("Unable to find module '$name'" ~
+        pir::say("Unable to find module '$name'" ~
             (%name_adverbs<ver> ?? " with version '" ~ %name_adverbs<ver> ~ "'" !! "") ~
             (%name_adverbs<ver> && %name_adverbs<auth> ?? ' and' !! '') ~
             (%name_adverbs<auth> ?? " with authority '" ~ %name_adverbs<auth> ~ "'" !! "") ~
-            ".");
+            " in the @*INC directories.");
+        pir::exit__vI( 1 ); # or another more meaningful nonzero status
     }
 
     # Need not load file if we already did so.