gitea
/
Koha-clms
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Revert "Bug 6679: Fixing code so it passes basic Perl:::Critic tests" 

This reverts commit 8b9a555cc9.

Signed-off-by: Tomas Cohen Arazi <tomascohen@gmail.com>
This commit is contained in:
Tomas Cohen Arazi 2015-05-26 14:16:31 -03:00
parent f55c1032b7
commit 109c610e99
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
opac/ilsdi.pl
View File

@ -17,14 +17,15 @@
# You should have received a copy of the GNU General Public License
# along with Koha; if not, see <http://www.gnu.org/licenses>.
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"};
};