r37718@kohr-ah: chmrr | 2008-09-25 16:37:53 -0400

* Pass through any extra arguments, so Net::Server implementation can be further configured git-svn-id: svn://svn.bestpractical.com/HTTP-Server-Simple@16683 e417ac7c-1bcc-0310-8ffa-8f5827389a85
dagolden · Nov 5, 2008 · ee989b2 · ee989b2
1 parent 56d00fc
commit ee989b2
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/lib/HTTP/Server/Simple.pm b/lib/HTTP/Server/Simple.pm
@@ -8,7 +8,7 @@ use Carp;
 use URI::Escape;
 
 use vars qw($VERSION $bad_request_doc);
-$VERSION = '0.34';
+$VERSION = '0.35';
 
 
 =head1 NAME
@@ -224,7 +224,7 @@ sub background {
         POSIX::setsid()
             or die "Can't start a new session: $!";
     }
-    $self->run();
+    $self->run(@_);
 }
 
 =head2 run
@@ -273,7 +273,7 @@ sub run {
 
     local $SIG{HUP} = sub { $SERVER_SHOULD_RUN = 0; };
 
-    $pkg->run( port => $self->port );
+    $pkg->run( port => $self->port, @_ );
 }
 
 =head2 net_server