View | Details | Raw Unified | Return to bug 39149
Collapse All | Expand All

(-)a/misc/devel/tidy.pl (-3 / +3 lines)
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
- 

Return to bug 39149