fix handling of last entry if there is none

diff --git a/lib/LDAP/Koha.pm b/lib/LDAP/Koha.pm
index 7c2791c..38e4428 100644 (file)
--- a/lib/LDAP/Koha.pm
+++ b/lib/LDAP/Koha.pm
@@ -247,8 +247,10 @@ sub search {
 
                }
 
 
                }
 

-               warn "### last entry ",$entry->dump( \*STDERR );
-               push @entries, $entry;
+               if ( $entry ) {
+                       warn "### last entry ",$entry->dump( \*STDERR );
+                       push @entries, $entry;
+               }

 
        } else {
                warn "UNKNOWN request: ",dump( $reqData );
 
        } else {
                warn "UNKNOWN request: ",dump( $reqData );