Lines 21-27
use File::Path qw(make_path);
Link Here
|
21 |
use File::Slurp qw(read_file write_file); |
21 |
use File::Slurp qw(read_file write_file); |
22 |
use File::Basename; |
22 |
use File::Basename; |
23 |
use JSON qw(from_json to_json); |
23 |
use JSON qw(from_json to_json); |
24 |
use List::MoreUtils qw(firstval); |
24 |
use List::MoreUtils qw(firstval uniq); |
25 |
|
25 |
|
26 |
use Koha::Devel::Files; |
26 |
use Koha::Devel::Files; |
27 |
|
27 |
|
Lines 143-149
sub get_files_to_test {
Link Here
|
143 |
} |
143 |
} |
144 |
@files = $dev_files->ls_files($filetype) if !$self->{incremental_run} || $no_history; |
144 |
@files = $dev_files->ls_files($filetype) if !$self->{incremental_run} || $no_history; |
145 |
|
145 |
|
146 |
return @files; |
146 |
return uniq @files; |
147 |
} |
147 |
} |
148 |
|
148 |
|
149 |
=head2 report_results |
149 |
=head2 report_results |
150 |
- |
|
|