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