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

(-)a/Koha/Devel/Files.pm (-3 / +4 lines)
Lines 128-135 Lists Perl files (with extensions .pl, .PL, .pm, .t) that have been modified wit Link Here
128
128
129
sub ls_perl_files {
129
sub ls_perl_files {
130
    my ($self) = @_;
130
    my ($self) = @_;
131
    my $cmd    = sprintf q{git ls-files '*.pl' '*.PL' '*.pm' '*.t' svc opac/svc %s}, $self->build_git_exclude('pl');
131
    my $cmd = sprintf q{git ls-files '*.pl' '*.PL' '*.pm' '*.t' svc opac/svc debian/build-git-snapshot %s},
132
    my @files  = qx{$cmd};
132
        $self->build_git_exclude('pl');
133
    my @files = qx{$cmd};
133
    chomp for @files;
134
    chomp for @files;
134
    return @files;
135
    return @files;
135
}
136
}
Lines 179-184 sub get_filetype { Link Here
179
    return 'pl' if $file =~ m{^svc}  || $file =~ m{^opac/svc};
180
    return 'pl' if $file =~ m{^svc}  || $file =~ m{^opac/svc};
180
    return 'pl' if $file =~ m{\.pl$} || $file =~ m{\.pm} || $file =~ m{\.t$};
181
    return 'pl' if $file =~ m{\.pl$} || $file =~ m{\.pm} || $file =~ m{\.t$};
181
    return 'pl' if $file =~ m{\.PL$};
182
    return 'pl' if $file =~ m{\.PL$};
183
    return 'pl' if $file =~ m{debian/build-git-snapshot};
182
184
183
    return 'js' if $file =~ m{\.js$} || $file =~ m{\.ts$} || $file =~ m{\.vue$};
185
    return 'js' if $file =~ m{\.js$} || $file =~ m{\.ts$} || $file =~ m{\.vue$};
184
186
185
- 

Return to bug 39876