From cd9589681d053f15cb54b58570af908e40abd460 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 Signed-off-by: Josef Moravec Signed-off-by: Katrin Fischer Signed-off-by: Brendan Gallagher brendan@bywatersolutions.com --- 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 b411425614..27835427b8 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.39.5