From afb988d1bf2d47f36f0924b81d0baf353ead4e56 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Tom=C3=A1s=20Cohen=20Arazi?= Date: Wed, 24 Sep 2025 12:01:26 -0300 Subject: [PATCH] Bug 40872: List opac/unapi as a Perl file This patch makes `tidy.pl` treat the file as a Perl one. To test: 1. Run: $ ktd --shell k$ misc/devel/tidy.pl opac/unapi => FAIL: You get: ``` Cannot guess filetype for opac/unapi at /kohadevbox/koha/Koha/Devel/Files.pm line 241. ``` 2. Apply this patch 3. Repeat 1 => SUCCESS: The file is now tidy. 4. Sign off :-D --- Koha/Devel/Files.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/Koha/Devel/Files.pm b/Koha/Devel/Files.pm index f644641404..8c006adc77 100644 --- a/Koha/Devel/Files.pm +++ b/Koha/Devel/Files.pm @@ -148,7 +148,7 @@ Lists Perl files (with extensions .pl, .PL, .pm, .t) that have been modified wit sub ls_perl_files { my ($self) = @_; - my $cmd = sprintf q{git ls-files '*.pl' '*.PL' '*.pm' '*.t' svc opac/svc debian/build-git-snapshot %s}, + my $cmd = sprintf q{git ls-files '*.pl' '*.PL' '*.pm' '*.t' svc opac/svc opac/unapi debian/build-git-snapshot %s}, $self->build_git_exclude('pl'); my @files = qx{$cmd}; chomp for @files; @@ -232,7 +232,7 @@ sub get_filetype { return 'pl' if $file =~ m{^svc} || $file =~ m{^opac/svc}; return 'pl' if $file =~ m{\.pl$} || $file =~ m{\.pm} || $file =~ m{\.t$}; return 'pl' if $file =~ m{\.PL$}; - return 'pl' if $file =~ m{debian/build-git-snapshot}; + return 'pl' if $file =~ m{debian/build-git-snapshot} || $file =~ m{opac/unapi}; return 'js' if $file =~ m{\.js$} || $file =~ m{\.ts$} || $file =~ m{\.vue$}; -- 2.51.0