From 50d84c174ab22a3d3507e0804459b222a128d7cd Mon Sep 17 00:00:00 2001
From: Gerhard Gonter <ggonter@gmail.com>
Date: Thu, 17 Sep 2015 20:20:01 +0200
Subject: [PATCH] fork tomboy
---
perl/Gnome-Tomboy/tom | 7 ++++++-
1 file changed, 6 insertions(+), 1 deletion(-)
diff --git a/perl/Gnome-Tomboy/tom b/perl/Gnome-Tomboy/tom
index d89e3ee..d0bb202 100755
--- a/perl/Gnome-Tomboy/tom
+++ b/perl/Gnome-Tomboy/tom
@@ -120,7 +120,12 @@ elsif ($op_code eq 'boy')
print "note_dir=[$note_dir]\n";
my @x= (qw(tomboy --note-path), $note_dir);
print "x=[", join (' ', @x), "]\n";
- system (@x);
+
+ my $pid= fork();
+ if ($pid > 0) { print "forked $pid\n"; exit (0) }
+ elsif ($pid < 0) { die "can't fork [". join (' ', @x). ']'; }
+
+ exec (@x);
}
elsif ($op_code eq 'diff')
{
--
GitLab