Lines 148-154
Lists Perl files (with extensions .pl, .PL, .pm, .t) that have been modified wit
Link Here
|
148 |
|
148 |
|
149 |
sub ls_perl_files { |
149 |
sub ls_perl_files { |
150 |
my ($self) = @_; |
150 |
my ($self) = @_; |
151 |
my $cmd = sprintf q{git ls-files '*.pl' '*.PL' '*.pm' '*.t' svc opac/svc debian/build-git-snapshot %s}, |
151 |
my $cmd = sprintf q{git ls-files '*.pl' '*.PL' '*.pm' '*.t' svc opac/svc opac/unapi debian/build-git-snapshot %s}, |
152 |
$self->build_git_exclude('pl'); |
152 |
$self->build_git_exclude('pl'); |
153 |
my @files = qx{$cmd}; |
153 |
my @files = qx{$cmd}; |
154 |
chomp for @files; |
154 |
chomp for @files; |
Lines 232-238
sub get_filetype {
Link Here
|
232 |
return 'pl' if $file =~ m{^svc} || $file =~ m{^opac/svc}; |
232 |
return 'pl' if $file =~ m{^svc} || $file =~ m{^opac/svc}; |
233 |
return 'pl' if $file =~ m{\.pl$} || $file =~ m{\.pm} || $file =~ m{\.t$}; |
233 |
return 'pl' if $file =~ m{\.pl$} || $file =~ m{\.pm} || $file =~ m{\.t$}; |
234 |
return 'pl' if $file =~ m{\.PL$}; |
234 |
return 'pl' if $file =~ m{\.PL$}; |
235 |
return 'pl' if $file =~ m{debian/build-git-snapshot}; |
235 |
return 'pl' if $file =~ m{debian/build-git-snapshot} || $file =~ m{opac/unapi}; |
236 |
|
236 |
|
237 |
return 'js' if $file =~ m{\.js$} || $file =~ m{\.ts$} || $file =~ m{\.vue$}; |
237 |
return 'js' if $file =~ m{\.js$} || $file =~ m{\.ts$} || $file =~ m{\.vue$}; |
238 |
|
238 |
|
239 |
- |
|
|