close stdin/stdout/stderr after forking

tmux hangs while the xclip process still exists otherwise (and the xclip
process has to stick around after copying in order to provide the data
to subsequent paste requests)

1 files changed, 8 insertions, 1 deletions

diff --git a/bin/tmux-clipboard b/bin/tmux-clipboard
index 455fa1a..1e10fcf 100755
--- a/bin/tmux-clipboard
+++ b/bin/tmux-clipboard
@@ -21,6 +21,10 @@ mkfifo("$fifo_file", 0700);
 
 if ($ARGV[0] eq 'copy') {
     if (fork) {
+        close STDIN;
+        close STDOUT;
+        close STDERR;
+
         open my $clipboard, '|-', COPY_CMD
             or die "can't copy from clipboard using ${\COPY_CMD}: $!";
         $clipboard->print($fifo_file->slurp);
@@ -32,6 +36,10 @@ if ($ARGV[0] eq 'copy') {
 }
 elsif ($ARGV[0] eq 'paste') {
     if (fork) {
+        close STDIN;
+        close STDOUT;
+        close STDERR;
+
         open my $clipboard, '-|', PASTE_CMD
             or die "can't paste from clipboard using ${\PASTE_CMD}: $!";
         my $contents = do { local $/; <$clipboard> };
@@ -46,4 +54,3 @@ elsif ($ARGV[0] eq 'paste') {
 else {
     die "usage: $0 [copy|paste]";
 }
-