|
Lines 1-7
Link Here
|
| 1 |
package Koha::Devel::Files; |
1 |
package Koha::Devel::Files; |
| 2 |
|
2 |
|
| 3 |
use Modern::Perl; |
3 |
use Modern::Perl; |
| 4 |
use Array::Utils qw( array_minus ); |
|
|
| 5 |
|
4 |
|
| 6 |
=head1 NAME |
5 |
=head1 NAME |
| 7 |
|
6 |
|
|
Lines 170-177
sub ls_files {
Link Here
|
| 170 |
push @files, grep { -e && /\.(tt|inc)$/ } @modified_files; |
169 |
push @files, grep { -e && /\.(tt|inc)$/ } @modified_files; |
| 171 |
} |
170 |
} |
| 172 |
|
171 |
|
| 173 |
my @exception_files = $exceptions->{$filetype}->{ $self->{context} }; |
172 |
my @exception_patterns = @{ $exceptions->{$filetype}->{ $self->{context} } // [] }; |
| 174 |
@files = array_minus( @files, @exception_files ); |
173 |
if (@exception_patterns) { |
|
|
174 |
@files = grep { |
| 175 |
my $file = $_; |
| 176 |
!grep { $file =~ /^\Q$_\E/ } @exception_patterns |
| 177 |
} @files; |
| 178 |
} |
| 175 |
} else { |
179 |
} else { |
| 176 |
if ( $filetype eq 'pl' ) { |
180 |
if ( $filetype eq 'pl' ) { |
| 177 |
@files = $self->ls_perl_files; |
181 |
@files = $self->ls_perl_files; |
|
Lines 201-208
sub ls_perl_files {
Link Here
|
| 201 |
chomp @modified_files; |
205 |
chomp @modified_files; |
| 202 |
push @files, grep { -e && /\.(pl|PL|pm|t)$/ } @modified_files; |
206 |
push @files, grep { -e && /\.(pl|PL|pm|t)$/ } @modified_files; |
| 203 |
push @files, grep { -e && /^(svc|opac\/svc)/ } @modified_files; |
207 |
push @files, grep { -e && /^(svc|opac\/svc)/ } @modified_files; |
| 204 |
my @exception_files = $exceptions->{pl}->{ $self->{context} }; |
208 |
my @exception_patterns = @{ $exceptions->{pl}->{ $self->{context} } // [] }; |
| 205 |
@files = array_minus( @files, @exception_files ); |
209 |
if (@exception_patterns) { |
|
|
210 |
@files = grep { |
| 211 |
my $file = $_; |
| 212 |
!grep { $file =~ /^\Q$_\E/ } @exception_patterns |
| 213 |
} @files; |
| 214 |
} |
| 206 |
} else { |
215 |
} else { |
| 207 |
my $cmd = |
216 |
my $cmd = |
| 208 |
sprintf q{git ls-files '*.pl' '*.PL' '*.pm' '*.t' svc opac/svc opac/unapi debian/build-git-snapshot %s}, |
217 |
sprintf q{git ls-files '*.pl' '*.PL' '*.pm' '*.t' svc opac/svc opac/unapi debian/build-git-snapshot %s}, |
| 209 |
- |
|
|