From 109c610e99e1efcef970ae3bea3c1dc33fd2e198 Mon Sep 17 00:00:00 2001 From: Tomas Cohen Arazi Date: Tue, 26 May 2015 14:16:31 -0300 Subject: [PATCH] Revert "Bug 6679: Fixing code so it passes basic Perl:::Critic tests" This reverts commit 8b9a555cc9391b841472ca11a0f48edcd4819a2f. Signed-off-by: Tomas Cohen Arazi --- opac/ilsdi.pl | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/opac/ilsdi.pl b/opac/ilsdi.pl index 05e7c5cf90..c53acc6bca 100755 --- a/opac/ilsdi.pl +++ b/opac/ilsdi.pl @@ -17,14 +17,15 @@ # You should have received a copy of the GNU General Public License # along with Koha; if not, see . -use Modern::Perl; +use strict; +use warnings; + +use List::MoreUtils qw(any); use C4::ILSDI::Services; use C4::Auth; use C4::Output; use C4::Context; - -use List::MoreUtils qw(any); use XML::Simple; use CGI qw ( -utf8 ); @@ -216,7 +217,7 @@ if ( $service and any { $service eq $_ } @services ) { # Variable functions my $sub = do { -# no strict 'refs'; + no strict 'refs'; my $symbol = 'C4::ILSDI::Services::' . $service; \&{"$symbol"}; }; -- 2.39.2