From d24a1663c0814511717e9b04d5cdbe90aa9611a6 Mon Sep 17 00:00:00 2001 From: Jonathan Druart Date: Mon, 29 Feb 2016 10:56:33 +0000 Subject: [PATCH] [PASSED QA] Bug 15923: Fix --id_list_file option for misc/export_records.pl Signed-off-by: Josef Moravec Signed-off-by: Katrin Fischer --- misc/export_records.pl | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/misc/export_records.pl b/misc/export_records.pl index b411425..2783542 100755 --- a/misc/export_records.pl +++ b/misc/export_records.pl @@ -173,8 +173,9 @@ elsif ( $record_type eq 'auths' ) { } @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; -- 1.9.1