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

(-)a/misc/devel/tidy.pl (-1 / +1 lines)
Lines 223-228 sub tidy_tt { Link Here
223
223
224
sub get_filetype {
224
sub get_filetype {
225
    my ($file) = @_;
225
    my ($file) = @_;
226
    return 'pl' if $file =~ m{^debian/build-git-snapshot$};
226
    return 'pl' if $file =~ m{^svc}  || $file =~ m{^opac/svc};
227
    return 'pl' if $file =~ m{^svc}  || $file =~ m{^opac/svc};
227
    return 'pl' if $file =~ m{\.pl$} || $file =~ m{\.pm} || $file =~ m{\.t$};
228
    return 'pl' if $file =~ m{\.pl$} || $file =~ m{\.pm} || $file =~ m{\.t$};
228
    return 'pl' if $file =~ m{\.PL$};
229
    return 'pl' if $file =~ m{\.PL$};
229
- 

Return to bug 40261