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