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

(-)a/Koha/Devel/Files.pm (-3 / +2 lines)
Lines 153-160 sub ls_perl_files { Link Here
153
        $git_range =~ s|\.\.| |;
153
        $git_range =~ s|\.\.| |;
154
        my @modified_files = qx{git diff --name-only $git_range};
154
        my @modified_files = qx{git diff --name-only $git_range};
155
        chomp @modified_files;
155
        chomp @modified_files;
156
        push @files, grep { /\.(pl|PL|pm|t)$/ } @modified_files;
156
        push @files, grep { -e && /\.(pl|PL|pm|t)$/ } @modified_files;
157
        push @files, grep { /^(svc|opac\/svc)/ } @modified_files;
157
        push @files, grep { -e && /^(svc|opac\/svc)/ } @modified_files;
158
        my @exception_files = $exceptions->{pl}->{ $self->{context} };
158
        my @exception_files = $exceptions->{pl}->{ $self->{context} };
159
        @files = array_minus( @files, @exception_files );
159
        @files = array_minus( @files, @exception_files );
160
    } else {
160
    } else {
161
- 

Return to bug 39877