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 5e4e226..10ca380 100644 (file)
--- 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;