dev-perl/Proc-Daemon/files/debian_pid.patch


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25

Description: Fix too permissive umask
Bug-Debian: http://bugs.debian.org/732283
Bug: https://rt.cpan.org/Public/Bug/Display.html?id=91450
Author: Axel Beckert <abe@debian.org>

Index: libproc-daemon-perl/lib/Proc/Daemon.pm
===================================================================
--- libproc-daemon-perl.orig/lib/Proc/Daemon.pm	2013-08-29 16:50:09.000000000 +0200
+++ libproc-daemon-perl/lib/Proc/Daemon.pm	2013-12-16 20:20:36.000000000 +0100
@@ -152,7 +152,7 @@
             die "Can't <chdir> to $self->{work_dir}: $!" unless chdir $self->{work_dir};
 
             # Clear the file creation mask.
-            umask 0;
+            umask 066;
 
             # Detach the child from the terminal (no controlling tty), make it the
             # session-leader and the process-group-leader of a new process group.
@@ -633,4 +633,4 @@
     return $pid;
 }
 
-1;
\ No newline at end of file
+1;