From 191031f18357869e88cbd0aef5f1d49a09824964 Mon Sep 17 00:00:00 2001 From: Bill Erickson Date: Fri, 23 Sep 2016 11:15:34 -0400 Subject: [PATCH] EDI retrieval sanity check in undef value Avoid referencing potentially undef value as an array in the EDI retrieva code. Otherwise, all EDI retrieval stopped once the undef value was encountered. Signed-off-by: Bill Erickson --- Open-ILS/src/perlmods/lib/OpenILS/Application/Acq/EDI.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Open-ILS/src/perlmods/lib/OpenILS/Application/Acq/EDI.pm b/Open-ILS/src/perlmods/lib/OpenILS/Application/Acq/EDI.pm index 5e4e2269c7..10ca380328 100644 --- a/Open-ILS/src/perlmods/lib/OpenILS/Application/Acq/EDI.pm +++ b/Open-ILS/src/perlmods/lib/OpenILS/Application/Acq/EDI.pm @@ -187,7 +187,7 @@ sub retrieve_core { $content, $remote_file, $server, $account->id ); - push @return, @$incoming; + push @return, @$incoming if $incoming; } } return \@return; -- 2.11.0