From b37b4e821713a2702024597bc9df895553f0e00f Mon Sep 17 00:00:00 2001 From: Jonathan Druart Date: Fri, 15 Mar 2024 10:19:16 +0100 Subject: [PATCH] Bug 24879: Exclude koha_perl_deps.pl MIME-Version: 1.0 Content-Type: text/plain; charset=utf8 Content-Transfer-Encoding: 8bit And tidy. Signed-off-by: Martin Renvoize (cherry picked from commit 171197bf2353c0c415d25be127073ad13a9d86bc) Signed-off-by: Fridolin Somers (cherry picked from commit ab6e314da2bf24b2b93ee72e1adb312676321ed4) Signed-off-by: Frédéric Demians --- xt/find-missing-auth_checks.t | 13 +++++++------ 1 file changed, 7 insertions(+), 6 deletions(-) diff --git a/xt/find-missing-auth_checks.t b/xt/find-missing-auth_checks.t index d86fab2917..a1a5c0d594 100755 --- a/xt/find-missing-auth_checks.t +++ b/xt/find-missing-auth_checks.t @@ -20,18 +20,19 @@ use Test::More; use File::Slurp qw(read_file); -my @excluded_paths = qw(C4 debian docs etc installer/data install_misc Koha misc selenium t test tmp xt changelanguage.pl build-resources.PL fix-perl-path.PL ); -push @excluded_paths, 'opac'; # We cannot test the OPAC scripts, some can be accessed without authentication +my @excluded_paths = + qw(C4 debian docs etc installer/data install_misc Koha misc selenium t test tmp xt changelanguage.pl build-resources.PL fix-perl-path.PL koha_perl_deps.pl ); +push @excluded_paths, 'opac'; # We cannot test the OPAC scripts, some can be accessed without authentication -my $grep_cmd = q{git grep -l '#!/usr/bin/perl' -- } . join( ' ', map { qq{':!$_'} } @excluded_paths ); -my @files = `$grep_cmd`; +my $grep_cmd = q{git grep -l '#!/usr/bin/perl' -- } . join( ' ', map { qq{':!$_'} } @excluded_paths ); +my @files = `$grep_cmd`; my @missing_auth_check; FILE: foreach my $file (@files) { chomp $file; my @lines = read_file($file); - for my $line ( @lines ) { - for my $routine ( qw( get_template_and_user check_cookie_auth checkauth check_api_auth C4::Service->init ) ) { + for my $line (@lines) { + for my $routine (qw( get_template_and_user check_cookie_auth checkauth check_api_auth C4::Service->init )) { next FILE if $line =~ m|^[^#]*$routine|; } } -- 2.39.5