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

[gregoa at users.alioth.debian.org]

Author: gregoa
Date: Sun Jun 29 13:52:35 2008
New Revision: 22461

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

Modified:
    trunk/libhttp-server-simple-perl/debian/changelog
    trunk/libhttp-server-simple-perl/debian/patches/0001-Un-TODO-tests.patch
    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=22461&op=diff
==============================================================================
--- trunk/libhttp-server-simple-perl/debian/changelog (original)
+++ trunk/libhttp-server-simple-perl/debian/changelog Sun Jun 29 13:52:35 2008
@@ -10,6 +10,7 @@
   * Add debian/README.source for compliance with Policy 3.8.0.
   * debian/rules: remove obsolete source and diff targets, add install to
     .PHONY.
+  * Refresh patches.
 
  -- Jose Luis Rivas <ghostbar38 at gmail.com>  Sun, 29 Jun 2008 00:27:46 -0430
 

Modified: trunk/libhttp-server-simple-perl/debian/patches/0001-Un-TODO-tests.patch
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libhttp-server-simple-perl/debian/patches/0001-Un-TODO-tests.patch?rev=22461&op=diff
==============================================================================
--- trunk/libhttp-server-simple-perl/debian/patches/0001-Un-TODO-tests.patch (original)
+++ trunk/libhttp-server-simple-perl/debian/patches/0001-Un-TODO-tests.patch Sun Jun 29 13:52:35 2008
@@ -1,8 +1,6 @@
-Index: libhttp-server-simple-perl/t/01live.t
-===================================================================
 --- libhttp-server-simple-perl.orig/t/01live.t
 +++ libhttp-server-simple-perl/t/01live.t
-@@ -34,11 +34,7 @@ for my $class (@classes) {
+@@ -34,11 +34,7 @@
  }
  
  

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=22461&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 Jun 29 13:52:35 2008
@@ -1,19 +1,17 @@
 From: Niko Tyni <ntyni at iki.fi>
 Subject: [PATCH] Pipe version: parent waits for the child to say "OK" via a pipe.
 
-Index: libhttp-server-simple-perl/lib/HTTP/Server/Simple.pm
-===================================================================
 --- libhttp-server-simple-perl.orig/lib/HTTP/Server/Simple.pm
 +++ libhttp-server-simple-perl/lib/HTTP/Server/Simple.pm
-@@ -6,6 +6,7 @@ use FileHandle;
+@@ -6,6 +6,7 @@
  use Socket;
  use Carp;
  use URI::Escape;
 +use IO::Select;
  
  use vars qw($VERSION $bad_request_doc);
- $VERSION = '0.33';
-@@ -215,15 +216,36 @@ Run the server in the background. return
+ $VERSION = '0.34';
+@@ -215,15 +216,36 @@
  
  sub background {
      my $self  = shift;
@@ -40,7 +38,7 @@
 +        die("child is confused: answer '$response' != 'OK'")
 +            if $response ne "OK";
 +        return $child;
-+    }    
++    }
  
      if ( $^O !~ /MSWin32/ ) {
          require POSIX;
@@ -51,7 +49,7 @@
      $self->run();
  }
  
-@@ -263,6 +285,7 @@ sub run {
+@@ -270,6 +292,7 @@
  	$self->after_setup_listener();
          *{"$pkg\::run"} = $self->_default_run;
      }
@@ -59,7 +57,7 @@
  
      local $SIG{HUP} = sub { $SERVER_SHOULD_RUN = 0; };
  
-@@ -400,6 +423,15 @@ sub _process_request {
+@@ -407,6 +430,15 @@
          }
  }