X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=bibtex_to_paper;fp=bibtex_to_paper;h=23e0085b9478d527f8da39beec3ceffd08b6404d;hb=514a3b07d87365c558569874108c4c8467372736;hp=121a85544354bf60f8f2c2336371f1d8f1802713;hpb=7f5ebb78dfe45ece2ce9f461aebbdf067381c426;p=bin.git

diff --git a/bibtex_to_paper b/bibtex_to_paper
index 121a855..23e0085 100755
--- a/bibtex_to_paper
+++ b/bibtex_to_paper
@@ -18,6 +18,7 @@ use File::Spec qw(rel2abs);
 use Text::BibTeX;
 use User;
 use Data::Printer;
+use POSIX;
 
 use DBI;
 
@@ -223,6 +224,11 @@ sub fork_exec {
         die "Unable to fork for some reason: $!";
     }
     if ($child == 0) {
+        foreach (0 .. (POSIX::sysconf (&POSIX::_SC_OPEN_MAX) || 1024))
+           { POSIX::close $_ }
+        open (STDIN, "</dev/null");
+        open (STDOUT, ">/dev/null");
+        open (STDERR, ">&STDOUT");
         exec(@cmd);
     } else {
         return $child;