[UI] Do not leak fd into restarted services (Debian Bug#893152 by Ste…

…phen Rothwell <debbugs@rothwell.id.au>).

ChangeLog

@@ -20,6 +20,8 @@ needrestart (3.2) unstable; urgency=medium
       (github issue #116 by Marc Dequènes (Duck) @duck-rh)
     - [L10n] Fix typo in Russian localization.
       (github pull request #118 by @bodqhrohro)
+    - [UI] Do not leak fd into restarted services.
+      (Debian Bug#893152 by Stephen Rothwell <debbugs@rothwell.id.au>)
 
  -- Thomas Liske <thomas@fiasko-nw.net>  
 

perl/lib/NeedRestart/UI/Debconf.pm

@@ -269,4 +269,20 @@ sub runcmd {
     close(STDOUT);
 }
 
+# Workaround for Debian Bug#893152
+#
+# Using Debconf leaks a fd to this module's source file. Since Perl seems
+# not to set O_CLOEXEC the fd keeps open if the Debconf package uses fork
+# to restart needrestart piped to Debconf. The FD will leak into restarted
+# daemons if using Sys-V init.
+foreach my $fn (</proc/self/fd/*>) {
+    my $dst = readlink($fn);
+
+    # check if the FD is the package source file
+    if ($dst && ($dst eq __FILE__) && $fn =~ /\/(\d+)$/) {
+        open(my $fh, "<&=", $1) || warn("$!\n");
+        close($fh);
+    }
+}
+
 1;