|
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 |
- |
|
|