From: Don Armstrong <don@donarmstrong.com>
Date: Mon, 24 Sep 2007 07:24:38 +0000 (+0000)
Subject: fix pipe wait logic
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=742b562a5a28e38552b65e00fffef1e35ff6d2be;p=bin.git

fix pipe wait logic
---

diff --git a/delay_mail b/delay_mail
index 7f8a5b3..d2b1553 100755
--- a/delay_mail
+++ b/delay_mail
@@ -179,11 +179,10 @@ if (exists $options{enqueue}) {
      print {$q_fh} "#####\n";
      print {$q_fh} $email;
      my $at_fh;
-     open($at_fh,'|-','at',$delay) or exit 1;
+     my $pid = open($at_fh,'|-','at',$delay) or exit 1;
      print {$at_fh} "$0 '--queue' '$options{queue}' '--process' '$queue_fn';\n";
-     close $at_fh;
-     waitpid(-1,0);
-     exit $?;
+     close $at_fh or exit $?
+     exit 0;
 }
 elsif ($options{list}) {
      my $dir = IO::Dir->new($options{queue}) or