update modules to use ones from Debian jessie
authorDobrica Pavlinusic <dpavlin@rot13.org>
Wed, 23 Mar 2016 13:26:24 +0000 (14:26 +0100)
committerDobrica Pavlinusic <dpavlin@rot13.org>
Wed, 23 Mar 2016 13:26:24 +0000 (14:26 +0100)
vhost/webpac2.cgi

index fd76b65..5b9e2f0 100755 (executable)
@@ -11,7 +11,8 @@ use Data::Page;
 use Data::Dump qw/dump/;
 use SWISH::API;
 use JSON;
-use Text::Unaccent::PurePerl qw/unac_string/;
+#use Text::Unaccent::PurePerl qw/unac_string/;
+use Text::Unaccent qw/unac_string/;
 use HTML::FillInForm::Lite;
 use Encode;
 
@@ -203,7 +204,7 @@ print
 
 if ( my $search = param('search') ) {
 
-       $search = unac_string( Encode::decode('utf-8',$search) );
+       $search = unac_string( 'utf-8', Encode::decode('utf-8',$search) );
 
        print qq|
                <a href="#form" class="skip" title="skip to search form">#</a>