From 45aea4e4b5095eadf505259e4fce74c7311231e9 Mon Sep 17 00:00:00 2001 From: Jonathan Druart Date: Mon, 12 May 2025 15:07:15 +0200 Subject: [PATCH] Bug 39877: Remove files that have been deleted Ignore deleted or renamed files Signed-off-by: Victor Grousset/tuxayo Signed-off-by: Paul Derscheid Signed-off-by: John Doe --- 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 675400bd0fb..021017cf5b7 100644 --- a/Koha/Devel/Files.pm +++ b/Koha/Devel/Files.pm @@ -153,8 +153,8 @@ sub ls_perl_files { $git_range =~ s|\.\.| |; my @modified_files = qx{git diff --name-only $git_range}; chomp @modified_files; - push @files, grep { /\.(pl|PL|pm|t)$/ } @modified_files; - push @files, grep { /^(svc|opac\/svc)/ } @modified_files; + push @files, grep { -e && /\.(pl|PL|pm|t)$/ } @modified_files; + push @files, grep { -e && /^(svc|opac\/svc)/ } @modified_files; my @exception_files = $exceptions->{pl}->{ $self->{context} }; @files = array_minus( @files, @exception_files ); } else { -- 2.39.5 (Apple Git-154)