1 |
Description: Fix too permissive umask |
2 |
Bug-Debian: http://bugs.debian.org/732283 |
3 |
Bug: https://rt.cpan.org/Public/Bug/Display.html?id=91450 |
4 |
Author: Axel Beckert <abe@debian.org> |
5 |
|
6 |
Index: libproc-daemon-perl/lib/Proc/Daemon.pm |
7 |
=================================================================== |
8 |
--- libproc-daemon-perl.orig/lib/Proc/Daemon.pm 2013-08-29 16:50:09.000000000 +0200 |
9 |
+++ libproc-daemon-perl/lib/Proc/Daemon.pm 2013-12-16 20:20:36.000000000 +0100 |
10 |
@@ -152,7 +152,7 @@ |
11 |
die "Can't <chdir> to $self->{work_dir}: $!" unless chdir $self->{work_dir}; |
12 |
|
13 |
# Clear the file creation mask. |
14 |
- umask 0; |
15 |
+ umask 066; |
16 |
|
17 |
# Detach the child from the terminal (no controlling tty), make it the |
18 |
# session-leader and the process-group-leader of a new process group. |
19 |
@@ -633,4 +633,4 @@ |
20 |
return $pid; |
21 |
} |
22 |
|
23 |
-1; |
24 |
\ No newline at end of file |
25 |
+1; |