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