Version bump (#235674). Added debian patch for CPAN#28122

Package-Manager: portage-2.2_rc8/cvs/Linux 2.6.26-tuxonice i686

4 files changed, 131 insertions, 3 deletions

diff --git a/dev-perl/HTTP-Server-Simple/ChangeLog b/dev-perl/HTTP-Server-Simple/ChangeLog
index aa9746b0d757..e07572c10996 100644
--- a/dev-perl/HTTP-Server-Simple/ChangeLog
+++ b/dev-perl/HTTP-Server-Simple/ChangeLog
@@ -1,6 +1,12 @@
 # ChangeLog for dev-perl/HTTP-Server-Simple
-# Copyright 1999-2007 Gentoo Foundation; Distributed under the GPL v2
-# $Header: /var/cvsroot/gentoo-x86/dev-perl/HTTP-Server-Simple/ChangeLog,v 1.28 2007/07/11 15:54:46 mcummings Exp $
+# Copyright 1999-2008 Gentoo Foundation; Distributed under the GPL v2
+# $Header: /var/cvsroot/gentoo-x86/dev-perl/HTTP-Server-Simple/ChangeLog,v 1.29 2008/08/26 08:04:43 tove Exp $
+
+*HTTP-Server-Simple-0.34 (26 Aug 2008)
+
+  26 Aug 2008; Torsten Veller <tove@gentoo.org> +files/0.34-debian.patch,
+  +HTTP-Server-Simple-0.34.ebuild:
+  Version bump (#235674). Added debian patch for CPAN#28122
 
   11 Jul 2007; Michael Cummings <mcummings@gentoo.org>
   HTTP-Server-Simple-0.27.ebuild:
diff --git a/dev-perl/HTTP-Server-Simple/HTTP-Server-Simple-0.34.ebuild b/dev-perl/HTTP-Server-Simple/HTTP-Server-Simple-0.34.ebuild
new file mode 100644
index 000000000000..72dd4e8ba6b1
--- /dev/null
+++ b/dev-perl/HTTP-Server-Simple/HTTP-Server-Simple-0.34.ebuild
@@ -0,0 +1,19 @@
+# Copyright 1999-2008 Gentoo Foundation
+# Distributed under the terms of the GNU General Public License v2
+# $Header: /var/cvsroot/gentoo-x86/dev-perl/HTTP-Server-Simple/HTTP-Server-Simple-0.34.ebuild,v 1.1 2008/08/26 08:04:43 tove Exp $
+
+MODULE_AUTHOR=JESSE
+inherit perl-module eutils
+
+DESCRIPTION="Lightweight HTTP Server"
+
+SLOT="0"
+LICENSE="|| ( Artistic GPL-2 )"
+KEYWORDS="~amd64 ~ia64 ~ppc ~sparc ~x86"
+IUSE=""
+
+DEPEND="dev-lang/perl
+	dev-perl/URI"
+
+SRC_TEST="do"
+PATCHES="${FILESDIR}/${PV}-debian.patch"
diff --git a/dev-perl/HTTP-Server-Simple/Manifest b/dev-perl/HTTP-Server-Simple/Manifest
index b86d334c749a..c3ec03c5ab9a 100644
--- a/dev-perl/HTTP-Server-Simple/Manifest
+++ b/dev-perl/HTTP-Server-Simple/Manifest
@@ -1,10 +1,23 @@
+-----BEGIN PGP SIGNED MESSAGE-----
+Hash: SHA1
+
+AUX 0.34-debian.patch 2190 RMD160 d37db966c37e3ad34484e888789085a8030cf2e4 SHA1 9c3e9e236cf08ad004719f320b272719d669b7f1 SHA256 ac354c155ec2de028989d4a3c29cc3acf699266fd167b1910598acbe84f109de
 DIST HTTP-Server-Simple-0.16.tar.gz 19074 RMD160 eb321df3f4c7505e111bf0e11777c7fe6bf25784 SHA1 a49e80793d3f0773614acad88c20211913f28f35 SHA256 2b5bad92794a343528f41e0060bc1d750829943bdfa5d81c0a8c7d4bfe01673e
 DIST HTTP-Server-Simple-0.20.tar.gz 22445 RMD160 ba3c32b96790248119223cf0ae6c5b1921d5a346 SHA1 aa58050a1dd4d66f237ad8f787e4d9773b6a975c SHA256 6a2debc962415e6533e8d00dae608b407a867ba0ba34b4cc242ab1039651f48a
 DIST HTTP-Server-Simple-0.26.tar.gz 23274 RMD160 7902e7b2a498372c483e09a03b4b8390e58e27e7 SHA1 5eb6b1030d21e0e74a6ac093766937767340c2f3 SHA256 1d2ac2c34f53a0540a3715fab07fc71630adfa67a8b0304088ff8fd0d3a571d4
 DIST HTTP-Server-Simple-0.27.tar.gz 23330 RMD160 909115066240d9956bf02e46dd03ada4d7b21763 SHA1 aed637669d1a3ff7a350d78ad64dffb47f95fdb9 SHA256 5848cc49e600795e22db40c2aafc1e6d0da5bd6b04aa29f98393adf2fddf000f
+DIST HTTP-Server-Simple-0.34.tar.gz 25734 RMD160 2cbb505a3ca6f2950fecb444985f94b6bb676690 SHA1 80c2a02d482e07a37861fc6146d62c561704db11 SHA256 df31c42b6bd59a52b2e91dbf25e6f2718c03a1ff0e2104a27e909eb6c0753039
 EBUILD HTTP-Server-Simple-0.16.ebuild 523 RMD160 6c0ac717fece2f27d4eb789681176400eda1ac37 SHA1 cd570ffa619f1070ec6eb13d6986604b03938502 SHA256 e3b360a66231468fa708edb5a39cbb753e60fc275c6b8bb92575d59e2027e846
 EBUILD HTTP-Server-Simple-0.20.ebuild 529 RMD160 29e49f1eac580226797993b89141d76f1372c4ce SHA1 d614e462adf953643ebf06826caf90d61c313137 SHA256 a132eb3d08ae93389d54ba394c2bd13e2bc6d48027e9464dd4449c63835280c4
 EBUILD HTTP-Server-Simple-0.26.ebuild 528 RMD160 76f223c0c46b94e55023ce6fb6d6bee2325b1ca9 SHA1 9b9889997707b7fb09d5130c29773f980df3dd0a SHA256 2234b01d1bc88d9548c5ac2bd4a5dfb0628b8844330698ef496e33ca86c97523
 EBUILD HTTP-Server-Simple-0.27.ebuild 526 RMD160 8788b1344ea4836ce81d6c78dbf0ce632a7350d7 SHA1 b42d398ce10ae93186da97b5d66198e8a2c5e50e SHA256 4ff858058256fa2ae853087f03521a364af7a3b2027681d2f04ab6d07dc502a8
-MISC ChangeLog 3881 RMD160 6123c5f5a9edd865eb9bd176fc2bf98ab4917542 SHA1 ee4a46504b7c61d1b9816c5ca7b04beb198e96c9 SHA256 3403df277902c467f02f8f49c612f1ec30f7ce9b487c22696c360cb66fafcba3
+EBUILD HTTP-Server-Simple-0.34.ebuild 510 RMD160 e9d074808d6365e147879d82461213b68ee5692c SHA1 9bb90ee8ed28fdec4a1082561e2e32b29cf4fcb3 SHA256 ead6efb4dc54c3c886652842af4476978bfc99eef1ef0636436418e3571b3926
+MISC ChangeLog 4086 RMD160 475b91f8506f848d2817439f7e805fea060fa196 SHA1 26fed7632382d7a969b76c1977c215f460839786 SHA256 6419f6b405f76ab8d479b09831c81fdda99db0feef6d75008f9c87ed8a137c1f
 MISC metadata.xml 305 RMD160 647980838c590f54441a053916ea629e53e551c0 SHA1 99ef1deeae9a934fb6e46cf5fc4a5fcb8379a74a SHA256 f05dbef15061919972882cab07057e102760a542beba17d131194091401cd7ca
+-----BEGIN PGP SIGNATURE-----
+Version: GnuPG v2.0.9 (GNU/Linux)
+
+iEYEARECAAYFAkizuQ0ACgkQV3J2n04EauyF4QCfeRoP+PJZ1rSXqRjB/oWZcHr/
+DJgAoNEEs+nnFj3rHNXBKfAkenALyrD9
+=gvQa
+-----END PGP SIGNATURE-----
diff --git a/dev-perl/HTTP-Server-Simple/files/0.34-debian.patch b/dev-perl/HTTP-Server-Simple/files/0.34-debian.patch
new file mode 100644
index 000000000000..26922ac8781f
--- /dev/null
+++ b/dev-perl/HTTP-Server-Simple/files/0.34-debian.patch
@@ -0,0 +1,90 @@
+http://rt.cpan.org/Public/Bug/Display.html?id=28122
+patches from libhttp-server-simple-perl_0.34-1.diff.gz
+
+--- libhttp-server-simple-perl.orig/t/01live.t
++++ libhttp-server-simple-perl/t/01live.t
+@@ -34,11 +34,7 @@
+ }
+ 
+ 
+-TODO: { 
+-    local $TODO = "We don't currently wait for 'server is running' responses from the client";
+-    run_server_tests('SlowServer');
+-
+-}
++run_server_tests('SlowServer');
+ 
+ 
+ 
+--- libhttp-server-simple-perl.orig/lib/HTTP/Server/Simple.pm
++++ libhttp-server-simple-perl/lib/HTTP/Server/Simple.pm
+@@ -6,6 +6,7 @@
+ use Socket;
+ use Carp;
+ use URI::Escape;
++use IO::Select;
+ 
+ use vars qw($VERSION $bad_request_doc);
+ $VERSION = '0.34';
+@@ -215,15 +216,36 @@
+ 
+ sub background {
+     my $self  = shift;
++
++    # set up a pipe so the child can tell the parent when it's ready
++    # to accept requests
++    my ($readfh, $writefh) = FileHandle::pipe;
++
+     my $child = fork;
+     die "Can't fork: $!" unless defined($child);
+-    return $child if $child;
++    if ($child) { # parent
++        my $s = IO::Select->new;
++        $s->add($readfh);
++	my $now = time; my $left = 0;
++	my @ready;
++	while(not @ready and $left < 5) {
++		@ready = $s->can_read($left);
++		$left = time - $now;
++	}
++        die("child unresponsive for 5 seconds") if(not @ready);
++        my $response = <$readfh>;
++        chomp $response;
++        die("child is confused: answer '$response' != 'OK'")
++            if $response ne "OK";
++        return $child;
++    }
+ 
+     if ( $^O !~ /MSWin32/ ) {
+         require POSIX;
+         POSIX::setsid()
+             or die "Can't start a new session: $!";
+     }
++    $self->{_parent_handle} = $writefh;
+     $self->run();
+ }
+ 
+@@ -270,6 +292,7 @@
+ 	$self->after_setup_listener();
+         *{"$pkg\::run"} = $self->_default_run;
+     }
++    $self->_maybe_tell_parent();
+ 
+     local $SIG{HUP} = sub { $SERVER_SHOULD_RUN = 0; };
+ 
+@@ -407,6 +430,15 @@
+         }
+ }
+ 
++sub _maybe_tell_parent {
++    # inform the parent process that we're ready, if applicable
++    my $self = shift;
++    my $handle = $self->{_parent_handle};
++    return if !$handle;
++    print $handle "OK\n";
++    close $handle;
++    delete $self->{_parent_handle};
++}
+ 
+ 
+