slackbuilds/ap/msva-perl/msva-perl-0.9.2-fork.diff

diff -Naur msva-perl-0.9.2.orig/Crypt/Monkeysphere/MSVA.pm msva-perl-0.9.2/Crypt/Monkeysphere/MSVA.pm
--- msva-perl-0.9.2.orig/Crypt/Monkeysphere/MSVA.pm	2013-09-09 08:22:59.000000000 +0200
+++ msva-perl-0.9.2/Crypt/Monkeysphere/MSVA.pm	2013-11-12 12:54:30.857762903 +0100
@@ -41,7 +41,7 @@
   use Crypt::Monkeysphere::OpenPGP;
 
   use JSON;
-  use POSIX qw(strftime);
+  use POSIX;
   # we need the version of GnuPG::Interface that knows about pubkey_data, etc:
   use GnuPG::Interface 0.43;
 
@@ -841,6 +841,23 @@
       # FIXME: consider daemonizing here to behave more like
       # ssh-agent.  maybe avoid backgrounding by setting
       # MSVA_NO_BACKGROUND.
+      unless (exists $ENV{MSVA_NO_BACKGROUND}) {
+          POSIX::setsid or die "setsid: $!";
+          my $pid = fork();
+          if ( $pid < 0 ) {
+              die "fork: $!";
+          } elsif ( $pid ) {
+              exit 0;
+          }
+          chdir "/";
+          umask 0;
+          foreach (0..2) {
+              POSIX::close $_;
+          }
+          open (STDIN, "</dev/null");
+          open (STDOUT, ">/dev/null");
+          open (STDERR, ">&STDOUT");
+      }
     };
     if (exists $ENV{MSVA_MONITOR_CHANGES} &&
         $ENV{MSVA_MONITOR_CHANGES} eq 'true') {