[Rt-commit] r2480 - in HTTP-Server-Simple: . lib/HTTP/Server

[jesse at bestpractical.com]

Author: jesse
Date: Fri Mar 18 15:12:34 2005
New Revision: 2480

Modified:
   HTTP-Server-Simple/   (props changed)
   HTTP-Server-Simple/Changes
   HTTP-Server-Simple/SIGNATURE
   HTTP-Server-Simple/lib/HTTP/Server/Simple.pm
Log:
 r9181 at hualien:  jesse | 2005-03-18 15:11:33 -0500
 Finishing the patch from 11409


Modified: HTTP-Server-Simple/Changes
==============================================================================
--- HTTP-Server-Simple/Changes	(original)
+++ HTTP-Server-Simple/Changes	Fri Mar 18 15:12:34 2005
@@ -1,3 +1,7 @@
+0.03_03 Fri Mar 18 15:09:52 EST 2005
+- Finish fixes from http://rt.cpan.org/NoAuth/Bug.html?id=11409
+
+
 0.03_02 Thu Feb 17 23:34:00 NZDT 2005
 - Make test script not depend on LWP
 - Add ->header(), and various generic hook capabilities

Modified: HTTP-Server-Simple/SIGNATURE
==============================================================================
--- HTTP-Server-Simple/SIGNATURE	(original)
+++ HTTP-Server-Simple/SIGNATURE	Fri Mar 18 15:12:34 2005
@@ -14,9 +14,9 @@
 -----BEGIN PGP SIGNED MESSAGE-----
 Hash: SHA1
 
-SHA1 0f7431386b8bf23750d29652164695a0feac4f37 Changes
+SHA1 698dc98bd5e1d6e31b9ce99659d9e2f8adf03e90 Changes
 SHA1 d092b8d9bac96d321d554322e86cca2018714163 MANIFEST
-SHA1 2488f38638076522cb49fb0df360316bd4733284 META.yml
+SHA1 2a4223a1221d100946b7b35f673b1dbb2c28ffa1 META.yml
 SHA1 490f3fd115e09cb05b725580e5ed5cdd58241049 Makefile.PL
 SHA1 ed0c107672daac3bc9e266876666e1059dbe44b7 README
 SHA1 61dac0d5f7c81522d856b2d8608538ba34fb1247 ex/sample_server
@@ -28,7 +28,7 @@
 SHA1 e448c6dc5351ef425e3f8bdbeb642409120bc3ca inc/Module/Install/Metadata.pm
 SHA1 134de6ff2f762873b6a1af950dd53f8e0a801d73 inc/Module/Install/Win32.pm
 SHA1 1ec06df292af7f652d33db6129e9e4c7cc8b5095 inc/Module/Install/WriteAll.pm
-SHA1 62bc78f251eea18ee792578ff2fb768dd605060d lib/HTTP/Server/Simple.pm
+SHA1 500d711613d0c0726aa26b3234ad46a908007623 lib/HTTP/Server/Simple.pm
 SHA1 7ecec74634ca2edc652320d09f01996534b1660e lib/HTTP/Server/Simple/CGI.pm
 SHA1 db064af54cab345a71daec576e32e64b8fb1033d t/00smoke.t
 SHA1 9e68bffc26b5a42e2785ec68c3bf6fe45d6bb6da t/01live.t
@@ -37,7 +37,7 @@
 -----BEGIN PGP SIGNATURE-----
 Version: GnuPG v1.2.5 (GNU/Linux)
 
-iD8DBQFCJAOqEi9d9xCOQEYRAnMfAJ9yzAmC+OQXfyaxN7dEStSMT9af1gCfRwFC
-gPHD8N4QWmD4PtZzv0Ysf6Q=
-=hl1f
+iD8DBQFCOzWnEi9d9xCOQEYRApLiAJ9cAy6aaSjlITgyA1ECMr5f6TmnuwCfVG+E
+dPXenHwumYItmlch2caESz8=
+=R4YS
 -----END PGP SIGNATURE-----

Modified: HTTP-Server-Simple/lib/HTTP/Server/Simple.pm
==============================================================================
--- HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	(original)
+++ HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	Fri Mar 18 15:12:34 2005
@@ -5,7 +5,7 @@
 use Socket;
 use Carp;
 
-our $VERSION = '0.03_02';
+our $VERSION = '0.03_03';
 
 =head1 NAME
 
@@ -113,16 +113,20 @@
 =cut
 
 sub background {
-    my $self=shift;
-    my $child =fork ;
+    my $self  = shift;
+    my $child = fork;
     die "Can't fork: $!" unless defined($child);
     return $child if $child;
     use POSIX;
-    POSIX::setsid()
-        or die "Can't start a new session: $!";
+
+    if ( $^O !~ /MSWin32/ ) {
+        POSIX::setsid()
+          or die "Can't start a new session: $!";
+    }
     $self->run();
 }
 
+
 =head2 run
 
 Run the server.  If all goes well, this won't ever return, but it will