EDI retrieval sanity check in undef value
authorBill Erickson <berickxx@gmail.com>
Fri, 23 Sep 2016 15:15:34 +0000 (11:15 -0400)
committerBill Erickson <berickxx@gmail.com>
Thu, 21 Mar 2019 19:46:23 +0000 (15:46 -0400)
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>
Open-ILS/src/perlmods/lib/OpenILS/Application/Acq/EDI.pm

index 5e4e226..10ca380 100644 (file)
@@ -187,7 +187,7 @@ sub retrieve_core {
                 $content, $remote_file, $server, $account->id
             );
 
-            push @return, @$incoming;
+            push @return, @$incoming if $incoming;
         }
     }
     return \@return;