@@ -, +, @@ --- C4/ClassSortRoutine.pm | 6 +++--- 1 files changed, 3 insertions(+), 3 deletions(-) --- a/C4/ClassSortRoutine.pm +++ a/C4/ClassSortRoutine.pm @@ -52,10 +52,10 @@ use C4::ClassSortRoutine; my %loaded_routines = (); my @sort_routines = GetSortRoutineNames(); foreach my $sort_routine (@sort_routines) { - if (eval "require C4::ClassSortRoutine::$sort_routine") { + if (eval {require C4::ClassSortRoutine::$sort_routine}) { my $ref; - eval "\$ref = \\\&C4::ClassSortRoutine::${sort_routine}::get_class_sort_key"; - if (eval "\$ref->(\"a\", \"b\")") { + eval {\$ref = \\\&C4::ClassSortRoutine::${sort_routine}::get_class_sort_key}; + if (eval { \$ref->(\"a\", \"b\")} ) { $loaded_routines{$sort_routine} = $ref; } else { $loaded_routines{$sort_routine} = \&_get_class_sort_key; --