Signed-off-by: Josef Moravec <josef.moravec@gmail.com>
Signed-off-by: Katrin Fischer <katrin.fischer.83@web.de>
Signed-off-by: Brendan Gallagher brendan@bywatersolutions.com
}
@record_ids = uniq @record_ids;
-if ( @record_ids and my $id_list_file ) {
- my @filter_record_ids = <$id_list_file>;
+if ( @record_ids and $id_list_file ) {
+ open my $fh, '<', $id_list_file or die "Cannot open file $id_list_file ($!)";
+ my @filter_record_ids = <$fh>;
@filter_record_ids = map { my $id = $_; $id =~ s/[\r\n]*$//; $id } @filter_record_ids;
# intersection
my %record_ids = map { $_ => 1 } @record_ids;