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