Lines 143-149
sub build_git_exclude {
Link Here
|
143 |
} |
143 |
} |
144 |
|
144 |
|
145 |
sub get_perl_files { |
145 |
sub get_perl_files { |
146 |
my $cmd = sprintf q{git ls-files '*.pl' '*.pm' '*.t' svc opac/svc %s}, build_git_exclude('pl'); |
146 |
my $cmd = sprintf q{git ls-files '*.pl' '*.PL' '*.pm' '*.t' svc opac/svc %s}, build_git_exclude('pl'); |
147 |
my @files = qx{$cmd}; |
147 |
my @files = qx{$cmd}; |
148 |
chomp for @files; |
148 |
chomp for @files; |
149 |
return @files; |
149 |
return @files; |
Lines 219-226
sub tidy_tt {
Link Here
|
219 |
|
219 |
|
220 |
sub get_filetype { |
220 |
sub get_filetype { |
221 |
my ($file) = @_; |
221 |
my ($file) = @_; |
222 |
return 'pl' if $file =~ m{^svc} || $file =~ m{^opac/svc}; |
222 |
return 'pl' if $file =~ m{^svc} || $file =~ m{^opac/svc}; |
223 |
return 'pl' if $file =~ m{\.pl$} || $file =~ m{\.pm} || $file =~ m{\.t$}; |
223 |
return 'pl' if $file =~ m{\.pl$} || $file =~ m{\.pm} || $file =~ m{\.t$}; |
|
|
224 |
return 'pl' if $file =~ m{\.PL$}; |
224 |
|
225 |
|
225 |
return 'js' if $file =~ m{\.js$} || $file =~ m{\.ts$} || $file =~ m{\.vue$}; |
226 |
return 'js' if $file =~ m{\.js$} || $file =~ m{\.ts$} || $file =~ m{\.vue$}; |
226 |
|
227 |
|
227 |
- |
|
|