From: Josh Stompro <stomproj@larl.org>
Date: Fri, 24 Jul 2015 19:20:21 +0000 (-0500)
Subject: LP#1478123 - Add a close() after the shutdown() in Record.pm to stop
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=refs%2Fheads%2Fuser%2Fstompro%2Flp1478123_socket_fd_leak_added_content;p=working%2FEvergreen.git

LP#1478123 - Add a close() after the shutdown() in Record.pm to stop
 FD leak.

Signed-off-by: Josh Stompro <stomproj@larl.org>
---

diff --git a/Open-ILS/src/perlmods/lib/OpenILS/WWW/EGCatLoader/Record.pm b/Open-ILS/src/perlmods/lib/OpenILS/WWW/EGCatLoader/Record.pm
index cf8ea003e4..be1a402d53 100644
--- a/Open-ILS/src/perlmods/lib/OpenILS/WWW/EGCatLoader/Record.pm
+++ b/Open-ILS/src/perlmods/lib/OpenILS/WWW/EGCatLoader/Record.pm
@@ -574,7 +574,10 @@ sub added_content_stage2 {
             }
         }
         # To avoid a lot of hanging connections.
-        $content->{request}->shutdown(2) if ($content->{request});
+        if ($content->{request}) {
+            $content->{request}->shutdown(2);
+            $content->{request}->close();
+        } 
     }
 }