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