projects
/
koha_fer
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Translation updates for 3.16.00 final release
[koha_fer]
/
misc
/
link_bibs_to_authorities.pl
diff --git
a/misc/link_bibs_to_authorities.pl
b/misc/link_bibs_to_authorities.pl
index
b35a00e
..
37596c5
100755
(executable)
--- a/
misc/link_bibs_to_authorities.pl
+++ b/
misc/link_bibs_to_authorities.pl
@@
-18,6
+18,7
@@
use Pod::Usage;
use Data::Dumper;
use Time::HiRes qw/time/;
use POSIX qw/strftime ceil/;
use Data::Dumper;
use Time::HiRes qw/time/;
use POSIX qw/strftime ceil/;
+use Module::Load::Conditional qw(can_load);
sub usage {
pod2usage( -verbose => 2 );
sub usage {
pod2usage( -verbose => 2 );
@@
-53,13
+54,11
@@
if ( not $result or $want_help ) {
my $linker_module =
"C4::Linker::" . ( C4::Context->preference("LinkerModule") || 'Default' );
my $linker_module =
"C4::Linker::" . ( C4::Context->preference("LinkerModule") || 'Default' );
-eval { eval "require $linker_module"; };
-if ($@) {
+unless ( can_load( modules => { $linker_module => undef } ) ) {
$linker_module = 'C4::Linker::Default';
$linker_module = 'C4::Linker::Default';
- eval "require $linker_module";
-}
-if ($@) {
- die "Unable to load linker module. Aborting.";
+ unless ( can_load( modules => { $linker_module => undef } ) ) {
+ die "Unable to load linker module. Aborting.";
+ }
}
my $linker = $linker_module->new(
}
my $linker = $linker_module->new(