Bug in _Multi.pm : eval { require $mod } means "search the file named $mod", but since $mod is a module name, we have to write eval "require $mod"

16 years ago · a8c75750cd
parent 112cf4c1e6
commit a8c75750cd
1 changed files with 1 additions and 1 deletions
--- a/modules/lemonldap-ng-portal/lib/Lemonldap/NG/Portal/_Multi.pm
+++ b/modules/lemonldap-ng-portal/lib/Lemonldap/NG/Portal/_Multi.pm
@ -33,7 +33,7 @@ sub new {
            $cond = 1 unless ( defined $cond );
            $mod = "Lemonldap::NG::Portal::" . [ 'Auth', 'UserDB' ]->[$i] . $mod
              unless ( $mod =~ /::/ );
-            eval { require $mod };
+            eval "require $mod";
            $portal->abort( 'Bad configuration', "Unable to load $mod ($@)" )
              if ($@);
            push @{ $self->{stack}->[$i] },