From 32150d50edf77d5bbb32af03a9880a69eed10ef9 Mon Sep 17 00:00:00 2001
From: Martin Berends <mberends@autoexec.demon.nl>
Date: Sun, 16 May 2010 15:27:26 +0100
Subject: [PATCH] [Perl6/Module/Loader.pm] when a 'use' or 'need' cannot find a
 module, just say so and exit with doing an unnecessary stack trace.

---
 src/Perl6/Module/Loader.pm | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/src/Perl6/Module/Loader.pm b/src/Perl6/Module/Loader.pm
index 43ff5ab76c4..98eb680169d 100644
--- 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.