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

[alexmv at bestpractical.com]

Author: alexmv
Date: Wed Nov  5 16:09:13 2008
New Revision: 16683

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

Log:
 r37718 at kohr-ah:  chmrr | 2008-09-25 16:37:53 -0400
  * Pass through any extra arguments, so Net::Server implementation can be further configured


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	Wed Nov  5 16:09:13 2008
@@ -8,7 +8,7 @@
 use URI::Escape;
 
 use vars qw($VERSION $bad_request_doc);
-$VERSION = '0.34';
+$VERSION = '0.35';
 
 
 =head1 NAME
@@ -224,7 +224,7 @@
         POSIX::setsid()
             or die "Can't start a new session: $!";
     }
-    $self->run();
+    $self->run(@_);
 }
 
 =head2 run
@@ -273,7 +273,7 @@
 
     local $SIG{HUP} = sub { $SERVER_SHOULD_RUN = 0; };
 
-    $pkg->run( port => $self->port );
+    $pkg->run( port => $self->port, @_ );
 }
 
 =head2 net_server