@@ -, +, @@ --------- -- warning about INIT for C4::Tags -- should all run okay -- warning should be gone, and everything else run okay --- C4/Installer/PerlDependencies.pm | 5 +++++ C4/Tags.pm | 15 ++++++--------- 2 files changed, 11 insertions(+), 9 deletions(-) --- a/C4/Installer/PerlDependencies.pm +++ a/C4/Installer/PerlDependencies.pm @@ -802,6 +802,11 @@ our $PERL_DEPS = { 'required' => '1', 'min_ver' => '0.14', }, + 'Lingua::Ispell' => { + 'usage' => 'Enhanced Content - Tagging', + 'required' => '0', + 'min_ver' => '0.07' + }, }; 1; --- a/C4/Tags.pm +++ a/C4/Tags.pm @@ -56,10 +56,12 @@ BEGIN { import Data::Dumper qw(:DEFAULT); print STDERR __PACKAGE__ . " external dictionary = " . ($ext_dict||'none') . "\n"; } - if ($ext_dict) { - require Lingua::Ispell; - import Lingua::Ispell qw(spellcheck add_word_lc save_dictionary); - } + if ($ext_dict) { + require Lingua::Ispell; + import Lingua::Ispell qw(spellcheck add_word_lc save_dictionary); + $ext_dict and $Lingua::Ispell::path = $ext_dict; + $debug and print STDERR "\$Lingua::Ispell::path = $Lingua::Ispell::path\n"; + } } =head1 C4::Tags.pm - Support for user tagging of biblios. @@ -68,11 +70,6 @@ More verose debugging messages are sent in the presence of non-zero $ENV{"DEBUG" =cut -INIT { - $ext_dict and $Lingua::Ispell::path = $ext_dict; - $debug and print STDERR "\$Lingua::Ispell::path = $Lingua::Ispell::path\n"; -} - sub get_filters { my $query = "SELECT * FROM tags_filters "; my ($sth); --