add recheck spam

[bin.git] / bibtex_to_paper

diff --git a/bibtex_to_paper b/bibtex_to_paper
index 181f9cf1fbd7b04665c4431e12c07f763a09aaed..23e0085b9478d527f8da39beec3ceffd08b6404d 100755 (executable)
--- 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;
 
@@ -173,6 +174,10 @@ sub load_papers_into_database {
     my @dirs = ref($dir)?@{$dir}:$dir;
 
     my $actually_load_it = sub {
+        if (/\.git/) {
+            $File::Find::prune = 1;
+            return;
+        }
         return unless /\.pdf$/;
         my $xoj = 0;
         if (-e "${_}.xoj") {
@@ -219,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;