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

(-)a/Koha/Devel/Files.pm (-3 / +2 lines)
Lines 133-140 sub ls_perl_files { Link Here
133
        $git_range =~ s|\.\.| |;
133
        $git_range =~ s|\.\.| |;
134
        my @modified_files = qx{git diff --name-only $git_range};
134
        my @modified_files = qx{git diff --name-only $git_range};
135
        chomp @modified_files;
135
        chomp @modified_files;
136
        push @files, grep { /\.(pl|PL|pm|t)$/ } @modified_files;
136
        push @files, grep { -e && /\.(pl|PL|pm|t)$/ } @modified_files;
137
        push @files, grep { /^(svc|opac\/svc)/ } @modified_files;
137
        push @files, grep { -e && /^(svc|opac\/svc)/ } @modified_files;
138
        my @exception_files = $exceptions->{pl}->{ $self->{context} };
138
        my @exception_files = $exceptions->{pl}->{ $self->{context} };
139
        @files = array_minus( @files, @exception_files );
139
        @files = array_minus( @files, @exception_files );
140
    } else {
140
    } else {
141
- 

Return to bug 39877