r54831 - in /trunk/libhttp-server-simple-perl/debian: changelog patches/0002-Pipe-version-parent-waits-for-the-child-to-say-OK.patch

[gregoa at users.alioth.debian.org]

Author: gregoa
Date: Sun Mar 28 13:08:50 2010
New Revision: 54831

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=54831
Log:
* Refresh patch.

Modified:
    trunk/libhttp-server-simple-perl/debian/changelog
    trunk/libhttp-server-simple-perl/debian/patches/0002-Pipe-version-parent-waits-for-the-child-to-say-OK.patch

Modified: trunk/libhttp-server-simple-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libhttp-server-simple-perl/debian/changelog?rev=54831&op=diff
==============================================================================
--- trunk/libhttp-server-simple-perl/debian/changelog (original)
+++ trunk/libhttp-server-simple-perl/debian/changelog Sun Mar 28 13:08:50 2010
@@ -1,8 +1,11 @@
 libhttp-server-simple-perl (0.42-1) UNRELEASED; urgency=low
 
-  TODO: look at patches
-
-  * New upstream release
+  [ Jonathan Yu ]
+  * New upstream release
+  * Standards-Version 3.8.4 (no changes)
+
+  [ gregor herrmann ]
+  * Refresh patch.
 
  -- Jonathan Yu <jawnsy at cpan.org>  Sun, 28 Feb 2010 12:38:08 -0500
 

Modified: trunk/libhttp-server-simple-perl/debian/patches/0002-Pipe-version-parent-waits-for-the-child-to-say-OK.patch
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libhttp-server-simple-perl/debian/patches/0002-Pipe-version-parent-waits-for-the-child-to-say-OK.patch?rev=54831&op=diff
==============================================================================
--- trunk/libhttp-server-simple-perl/debian/patches/0002-Pipe-version-parent-waits-for-the-child-to-say-OK.patch (original)
+++ trunk/libhttp-server-simple-perl/debian/patches/0002-Pipe-version-parent-waits-for-the-child-to-say-OK.patch Sun Mar 28 13:08:50 2010
@@ -3,15 +3,15 @@
 
 --- a/lib/HTTP/Server/Simple.pm
 +++ b/lib/HTTP/Server/Simple.pm
-@@ -6,6 +6,7 @@
+@@ -5,6 +5,7 @@ package HTTP::Server::Simple;
+ use FileHandle;
  use Socket;
  use Carp;
- use URI::Escape;
 +use IO::Select;
  
  use vars qw($VERSION $bad_request_doc);
- $VERSION = '0.41';
-@@ -206,9 +207,30 @@
+ $VERSION = '0.42';
+@@ -205,9 +206,30 @@ started process.  Any arguments will be
  
  sub background {
      my $self  = shift;
@@ -43,7 +43,7 @@
  
      srand(); # after a fork, we need to reset the random seed
               # or we'll get the same numbers in both branches
-@@ -217,6 +239,8 @@
+@@ -216,6 +238,8 @@ sub background {
          POSIX::setsid()
              or croak "Can't start a new session: $!";
      }
@@ -52,7 +52,7 @@
      $self->run(@_); # should never return
      exit;           # just to be sure
  }
-@@ -266,6 +290,7 @@
+@@ -265,6 +289,7 @@ sub run {
  	$self->after_setup_listener();
          *{"$pkg\::run"} = $self->_default_run;
      }
@@ -60,7 +60,7 @@
  
      local $SIG{HUP} = sub { $SERVER_SHOULD_RUN = 0; };
  
-@@ -403,6 +428,16 @@
+@@ -402,6 +427,16 @@ sub _process_request {
      }
  }