From 742b562a5a28e38552b65e00fffef1e35ff6d2be Mon Sep 17 00:00:00 2001
From: Don Armstrong <don@donarmstrong.com>
Date: Mon, 24 Sep 2007 07:24:38 +0000
Subject: [PATCH] fix pipe wait logic

---
 delay_mail | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

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
-- 
2.39.2