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

(-)a/Koha/Devel/Files.pm (-3 / +2 lines)
Lines 148-154 Lists Perl files (with extensions .pl, .PL, .pm, .t) that have been modified wit Link Here
148
148
149
sub ls_perl_files {
149
sub ls_perl_files {
150
    my ($self) = @_;
150
    my ($self) = @_;
151
    my $cmd = sprintf q{git ls-files '*.pl' '*.PL' '*.pm' '*.t' svc opac/svc debian/build-git-snapshot %s},
151
    my $cmd = sprintf q{git ls-files '*.pl' '*.PL' '*.pm' '*.t' svc opac/svc opac/unapi debian/build-git-snapshot %s},
152
        $self->build_git_exclude('pl');
152
        $self->build_git_exclude('pl');
153
    my @files = qx{$cmd};
153
    my @files = qx{$cmd};
154
    chomp for @files;
154
    chomp for @files;
Lines 232-238 sub get_filetype { Link Here
232
    return 'pl' if $file =~ m{^svc}  || $file =~ m{^opac/svc};
232
    return 'pl' if $file =~ m{^svc}  || $file =~ m{^opac/svc};
233
    return 'pl' if $file =~ m{\.pl$} || $file =~ m{\.pm} || $file =~ m{\.t$};
233
    return 'pl' if $file =~ m{\.pl$} || $file =~ m{\.pm} || $file =~ m{\.t$};
234
    return 'pl' if $file =~ m{\.PL$};
234
    return 'pl' if $file =~ m{\.PL$};
235
    return 'pl' if $file =~ m{debian/build-git-snapshot};
235
    return 'pl' if $file =~ m{debian/build-git-snapshot} || $file =~ m{opac/unapi};
236
236
237
    return 'js' if $file =~ m{\.js$} || $file =~ m{\.ts$} || $file =~ m{\.vue$};
237
    return 'js' if $file =~ m{\.js$} || $file =~ m{\.ts$} || $file =~ m{\.vue$};
238
238
239
- 

Return to bug 40872