[Bps-public-commit] r11020 - in Test-HTTP-Server-Simple: .

[alexmv at bestpractical.com]

Author: alexmv
Date: Thu Mar  6 16:27:07 2008
New Revision: 11020

Modified:
   Test-HTTP-Server-Simple/   (props changed)
   Test-HTTP-Server-Simple/lib/Test/HTTP/Server/Simple.pm

Log:
 r28346 at kohr-ah:  chmrr | 2008-03-06 16:26:56 -0500
  * wait changes $?, which is the exit value of the test; local it


Modified: Test-HTTP-Server-Simple/lib/Test/HTTP/Server/Simple.pm
==============================================================================
--- Test-HTTP-Server-Simple/lib/Test/HTTP/Server/Simple.pm	(original)
+++ Test-HTTP-Server-Simple/lib/Test/HTTP/Server/Simple.pm	Thu Mar  6 16:27:07 2008
@@ -70,6 +70,7 @@
 $SIG{INT} = sub { warn "INT:$$"; exit };
 
 END {
+    local $?;
     if (WIN32) {
         # INT won't do since the server is doing a blocking read
         # which isn't interrupted by anything but KILL on win32.
@@ -88,8 +89,8 @@
             eval {
                 1 while $_ = wait and $_ > 0;
             };
-            alarm(0);
             $done = not $@;
+            alarm(0);
         }
     }
 }