From 9d85c8d4880ba1708e4f4ea1bcd24370f5f937cb Mon Sep 17 00:00:00 2001 From: Jonathan Druart Date: Mon, 29 Feb 2016 10:56:33 +0000 Subject: [PATCH] Bug 15923: Fix --id_list_file option for misc/export_records.pl --- 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; -- 2.7.0