View | Details | Raw Unified | Return to bug 41274
Collapse All | Expand All

(-)a/Koha/Devel/Files.pm (-6 / +14 lines)
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
- 

Return to bug 41274