From 484ba18aa724d1b502c886e94345016e45886ed6 Mon Sep 17 00:00:00 2001
From: Micah Cowan <micah@cowan.name>
Date: Thu, 12 Jun 2008 01:31:54 -0700
Subject: [PATCH] Better cleanup for Test-proxied-https-auth.px.

---
 tests/ChangeLog                  | 5 +++++
 tests/Test-proxied-https-auth.px | 3 ++-
 2 files changed, 7 insertions(+), 1 deletion(-)

diff --git a/tests/ChangeLog b/tests/ChangeLog
index 73d93a2f..3ce03f98 100644
--- a/tests/ChangeLog
+++ b/tests/ChangeLog
@@ -1,3 +1,8 @@
+2008-06-12  Micah Cowan  <micah@cowan.name>
+
+	* Test-proxied-https-auth.px: Better cleanup, so next test can
+	open the port.
+
 2008-05-31  Micah Cowan  <micah@cowan.name>
 
 	* Test-N-current.px: Ensure we catch failures.
diff --git a/tests/Test-proxied-https-auth.px b/tests/Test-proxied-https-auth.px
index 22606589..b1de60b9 100755
--- a/tests/Test-proxied-https-auth.px
+++ b/tests/Test-proxied-https-auth.px
@@ -87,7 +87,7 @@ sub fork_server {
 }
 
 system ('rm -f needs-auth.txt');
-&fork_server;
+my $pid = &fork_server;
 
 sleep 1;
 my $cmdline = $WgetTest::WGETPATH . " --user=fiddle-dee-dee"
@@ -98,4 +98,5 @@ my $cmdline = $WgetTest::WGETPATH . " --user=fiddle-dee-dee"
 my $code = system($cmdline);
 
 warn "Got code: $code\n" if $code;
+kill ('TERM', $pid);
 exit $code;