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