|
Lines 128-135
Lists Perl files (with extensions .pl, .PL, .pm, .t) that have been modified wit
Link Here
|
| 128 |
|
128 |
|
| 129 |
sub ls_perl_files { |
129 |
sub ls_perl_files { |
| 130 |
my ($self) = @_; |
130 |
my ($self) = @_; |
| 131 |
my $cmd = sprintf q{git ls-files '*.pl' '*.PL' '*.pm' '*.t' svc opac/svc %s}, $self->build_git_exclude('pl'); |
131 |
my $cmd = sprintf q{git ls-files '*.pl' '*.PL' '*.pm' '*.t' svc opac/svc debian/build-git-snapshot %s}, |
| 132 |
my @files = qx{$cmd}; |
132 |
$self->build_git_exclude('pl'); |
|
|
133 |
my @files = qx{$cmd}; |
| 133 |
chomp for @files; |
134 |
chomp for @files; |
| 134 |
return @files; |
135 |
return @files; |
| 135 |
} |
136 |
} |
|
Lines 179-184
sub get_filetype {
Link Here
|
| 179 |
return 'pl' if $file =~ m{^svc} || $file =~ m{^opac/svc}; |
180 |
return 'pl' if $file =~ m{^svc} || $file =~ m{^opac/svc}; |
| 180 |
return 'pl' if $file =~ m{\.pl$} || $file =~ m{\.pm} || $file =~ m{\.t$}; |
181 |
return 'pl' if $file =~ m{\.pl$} || $file =~ m{\.pm} || $file =~ m{\.t$}; |
| 181 |
return 'pl' if $file =~ m{\.PL$}; |
182 |
return 'pl' if $file =~ m{\.PL$}; |
|
|
183 |
return 'pl' if $file =~ m{debian/build-git-snapshot}; |
| 182 |
|
184 |
|
| 183 |
return 'js' if $file =~ m{\.js$} || $file =~ m{\.ts$} || $file =~ m{\.vue$}; |
185 |
return 'js' if $file =~ m{\.js$} || $file =~ m{\.ts$} || $file =~ m{\.vue$}; |
| 184 |
|
186 |
|
| 185 |
- |
|
|