Skip to content
Browse files

propagate error messages from modules to user

  • Loading branch information...
1 parent 491c376 commit babfbeb525cd48d35793dbb515b6d7140012c24d @rcaputo committed Jan 15, 1999
Showing with 4 additions and 2 deletions.
  1. +4 −2 lib/POE.pm
View
6 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) . ")";

0 comments on commit babfbeb

Please sign in to comment.
Something went wrong with that request. Please try again.