r61812 - in /branches/upstream/libapp-daemon-perl/current: Changes Daemon.pm META.yml README

[carnil-guest at users.alioth.debian.org]

Author: carnil-guest
Date: Sat Aug 21 14:53:37 2010
New Revision: 61812

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=61812
Log:
[svn-upgrade] new version libapp-daemon-perl (0.10)

Modified:
    branches/upstream/libapp-daemon-perl/current/Changes
    branches/upstream/libapp-daemon-perl/current/Daemon.pm
    branches/upstream/libapp-daemon-perl/current/META.yml
    branches/upstream/libapp-daemon-perl/current/README

Modified: branches/upstream/libapp-daemon-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libapp-daemon-perl/current/Changes?rev=61812&op=diff
==============================================================================
--- branches/upstream/libapp-daemon-perl/current/Changes (original)
+++ branches/upstream/libapp-daemon-perl/current/Changes Sat Aug 21 14:53:37 2010
@@ -1,4 +1,7 @@
 Revision history for Perl extension App::Daemon.
+
+0.10 (08/19/2010)
+    (ms) Writing pid file before dropping privileges (just like logfile).
 
 0.09 (04/09/2010)
     (ms) Fixed find_option example on manual page. Thanks to 

Modified: branches/upstream/libapp-daemon-perl/current/Daemon.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libapp-daemon-perl/current/Daemon.pm?rev=61812&op=diff
==============================================================================
--- branches/upstream/libapp-daemon-perl/current/Daemon.pm (original)
+++ branches/upstream/libapp-daemon-perl/current/Daemon.pm Sat Aug 21 14:53:37 2010
@@ -2,7 +2,7 @@
 use strict;
 use warnings;
 
-our $VERSION = '0.09';
+our $VERSION = '0.10';
 
 use Getopt::Std;
 use Pod::Usage;
@@ -82,9 +82,6 @@
         DEBUG "Log4perl already initialized, doing nothing";
     } elsif( $l4p_conf ) {
         Log::Log4perl->init( $l4p_conf );
-    } elsif( !$background ) {
-        Log::Log4perl->easy_init({ level => $loglevel, 
-                                   layout => "%F{1}-%L: %m%n" });
     } elsif( $logfile ) {
         my $levelstring = Log::Log4perl::Level::to_level( $loglevel );
         Log::Log4perl->init(\ qq{
@@ -134,6 +131,7 @@
         if($action eq "restart") {
             sleep 1;
         } else {
+            INFO "Process $$ stopped by request.";
             exit 0;
         }
     }
@@ -153,10 +151,6 @@
         }
     };
     
-    INFO "Process ID is $$";
-    pid_file_write($$);
-    INFO "Written to $pidfile";
-
     return 1;
 }
 
@@ -167,7 +161,7 @@
 
     umask(0);
  
-      # Make sure the child isn't killed when the uses closes the
+      # Make sure the child isn't killed when the user closes the
       # terminal session before the child detaches from the tty.
     $SIG{'HUP'} = 'IGNORE';
  
@@ -186,6 +180,10 @@
         # process group leader of a new process group.
     POSIX::setsid();
  
+    INFO "Process ID is $$";
+    pid_file_write($$);
+    INFO "Written to $pidfile";
+
     if($as_user) {
         user_switch();
     }

Modified: branches/upstream/libapp-daemon-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libapp-daemon-perl/current/META.yml?rev=61812&op=diff
==============================================================================
--- branches/upstream/libapp-daemon-perl/current/META.yml (original)
+++ branches/upstream/libapp-daemon-perl/current/META.yml Sat Aug 21 14:53:37 2010
@@ -1,6 +1,6 @@
 --- #YAML:1.0
 name:               App-Daemon
-version:            0.09
+version:            0.10
 abstract:           Start an Application as a Daemon
 author:
     - Mike Schilli <m at perlmeister.com>
@@ -25,7 +25,7 @@
     directory:
         - t
         - inc
-generated_by:       ExtUtils::MakeMaker version 6.50
+generated_by:       ExtUtils::MakeMaker version 6.55_02
 meta-spec:
     url:      http://module-build.sourceforge.net/META-spec-v1.4.html
     version:  1.4

Modified: branches/upstream/libapp-daemon-perl/current/README
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libapp-daemon-perl/current/README?rev=61812&op=diff
==============================================================================
--- branches/upstream/libapp-daemon-perl/current/README (original)
+++ branches/upstream/libapp-daemon-perl/current/README Sat Aug 21 14:53:37 2010
@@ -1,5 +1,5 @@
 ######################################################################
-    App::Daemon 0.09
+    App::Daemon 0.10
 ######################################################################
 
 NAME