From: Bill Erickson <berickxx@gmail.com>
Date: Fri, 23 Sep 2016 15:15:34 +0000 (-0400)
Subject: EDI retrieval sanity check in undef value
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=191031f18357869e88cbd0aef5f1d49a09824964;p=working%2FEvergreen.git

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 <berickxx@gmail.com>
---

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;