X-Git-Url: https://ruderich.org/simon/gitweb/?p=fcscs%2Ffcscs.git;a=blobdiff_plain;f=bin%2Ffcscs;h=35e50e3a4fe7891e9018df4edb30ab20ca7527cb;hp=c44b8eaeb623c53846ee2b8f8c22931acc56e17f;hb=9cf281cf4a46d31c90fa9df41b8a857a4cf503c0;hpb=3789524cb5c0c5b5ba709308eae071d0d79b3598

diff --git a/bin/fcscs b/bin/fcscs
index c44b8ea..35e50e3 100755
--- a/bin/fcscs
+++ b/bin/fcscs
@@ -502,9 +502,11 @@ sub run_in_background {
 
         # Necessary for GNU screen or it'll keep the window open until an
         # external command has run.
-        close STDIN  or die $!;
-        close STDOUT or die $!;
-        close STDERR or die $!;
+        require File::Spec;
+        my $devnull = File::Spec->devnull();
+        open STDIN,  '<', $devnull or die $!;
+        open STDOUT, '>', $devnull or die $!;
+        open STDERR, '>', $devnull or die $!;
 
         # Double-fork to prevent zombies.
         my $pid = fork;