diff --git a/Syslog.pm b/Syslog.pm index 0cfc749..43afcd9 100644 --- a/Syslog.pm +++ b/Syslog.pm @@ -918,6 +918,8 @@ sub silent_eval (&) { sub can_load { my ($module, $verbose) = @_; local($SIG{__DIE__}, $SIG{__WARN__}, $@); + local @INC = @INC; + pop @INC if $INC[-1] eq '.'; my $loaded = eval "use $module; 1"; warn $@ if not $loaded and $verbose; return $loaded