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

(-)a/Koha/Devel/Files.pm (-3 / +2 lines)
Lines 161-168 sub ls_perl_files { Link Here
161
        $git_range =~ s|\.\.| |;
161
        $git_range =~ s|\.\.| |;
162
        my @modified_files = qx{git diff --name-only $git_range};
162
        my @modified_files = qx{git diff --name-only $git_range};
163
        chomp @modified_files;
163
        chomp @modified_files;
164
        push @files, grep { /\.(pl|PL|pm|t)$/ } @modified_files;
164
        push @files, grep { -e && /\.(pl|PL|pm|t)$/ } @modified_files;
165
        push @files, grep { /^(svc|opac\/svc)/ } @modified_files;
165
        push @files, grep { -e && /^(svc|opac\/svc)/ } @modified_files;
166
        my @exception_files = $exceptions->{pl}->{ $self->{context} };
166
        my @exception_files = $exceptions->{pl}->{ $self->{context} };
167
        @files = array_minus( @files, @exception_files );
167
        @files = array_minus( @files, @exception_files );
168
    } else {
168
    } else {
169
- 

Return to bug 39877