propagate error messages from modules to user

rcaputo · Jan 15, 1999 · babfbeb · babfbeb
1 parent 491c376
commit babfbeb
Showing 1 changed file with 4 additions and 2 deletions.
diff --git a/lib/POE.pm b/lib/POE.pm
@@ -24,8 +24,10 @@ sub import {
 
   my @failed;
   foreach my $module (@modules) {
-    eval("require POE::$module")
-      or push(@failed, $module);
+    unless (eval("require POE::$module")) {
+      warn $@;
+      push(@failed, $module);
+    }
   }
 
   @failed and croak "could not import qw(" . join(' ', @failed) . ")";