From 2adaca6f75d567928b5ee9ee6ca6e6690780d127 Mon Sep 17 00:00:00 2001 From: Tomas Cohen Arazi Date: Fri, 27 Jun 2025 14:18:14 -0300 Subject: [PATCH] Bug 39876: Add build-git-snapshot type resolution Signed-off-by: Tomas Cohen Arazi --- Koha/Devel/Files.pm | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/Koha/Devel/Files.pm b/Koha/Devel/Files.pm index d23d54a1759..df1bba620bc 100644 --- a/Koha/Devel/Files.pm +++ b/Koha/Devel/Files.pm @@ -128,8 +128,9 @@ 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 %s}, $self->build_git_exclude('pl'); - my @files = qx{$cmd}; + my $cmd = sprintf q{git ls-files '*.pl' '*.PL' '*.pm' '*.t' svc opac/svc debian/build-git-snapshot %s}, + $self->build_git_exclude('pl'); + my @files = qx{$cmd}; chomp for @files; return @files; } @@ -179,6 +180,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 'js' if $file =~ m{\.js$} || $file =~ m{\.ts$} || $file =~ m{\.vue$}; -- 2.50.0