r24627 - in /trunk/libpoe-component-server-simplehttp-perl/debian: changelog patches/ patches/Don't_die_because_of_unrelated_stuff_in_$!.patch patches/series

tincho at users.alioth.debian.org tincho at users.alioth.debian.org
Tue Aug 26 23:20:46 UTC 2008


Author: tincho
Date: Tue Aug 26 23:20:44 2008
New Revision: 24627

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=24627
Log:
debian/patches: fix a problem that caused POE to crash on some cases
because of a bug in a error trapping conditional.

Added:
    trunk/libpoe-component-server-simplehttp-perl/debian/patches/
    trunk/libpoe-component-server-simplehttp-perl/debian/patches/Don't_die_because_of_unrelated_stuff_in_$!.patch
    trunk/libpoe-component-server-simplehttp-perl/debian/patches/series
Modified:
    trunk/libpoe-component-server-simplehttp-perl/debian/changelog

Modified: trunk/libpoe-component-server-simplehttp-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpoe-component-server-simplehttp-perl/debian/changelog?rev=24627&op=diff
==============================================================================
--- trunk/libpoe-component-server-simplehttp-perl/debian/changelog (original)
+++ trunk/libpoe-component-server-simplehttp-perl/debian/changelog Tue Aug 26 23:20:44 2008
@@ -1,3 +1,10 @@
+libpoe-component-server-simplehttp-perl (1.46-2) UNRELEASED; urgency=low
+
+  * debian/patches: fix a problem that caused POE to crash on some cases
+    because of a bug in a error trapping conditional.
+
+ -- Martín Ferrari <tincho at debian.org>  Tue, 26 Aug 2008 20:19:23 -0300
+
 libpoe-component-server-simplehttp-perl (1.46-1) unstable; urgency=low
 
   * Initial Release. (Closes: #465545)

Added: trunk/libpoe-component-server-simplehttp-perl/debian/patches/Don't_die_because_of_unrelated_stuff_in_$!.patch
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpoe-component-server-simplehttp-perl/debian/patches/Don%27t_die_because_of_unrelated_stuff_in_%24%21.patch?rev=24627&op=file
==============================================================================
--- trunk/libpoe-component-server-simplehttp-perl/debian/patches/Don't_die_because_of_unrelated_stuff_in_$!.patch (added)
+++ trunk/libpoe-component-server-simplehttp-perl/debian/patches/Don't_die_because_of_unrelated_stuff_in_$!.patch Tue Aug 26 23:20:44 2008
@@ -1,0 +1,76 @@
+Index: libpoe-component-server-simplehttp-perl/lib/POE/Component/Server/SimpleHTTP.pm
+===================================================================
+--- libpoe-component-server-simplehttp-perl.orig/lib/POE/Component/Server/SimpleHTTP.pm
++++ libpoe-component-server-simplehttp-perl/lib/POE/Component/Server/SimpleHTTP.pm
+@@ -769,20 +769,21 @@ sub Got_Input {
+ 	# TODO if we received a malformed request, we will not have a request object
+ 	# We need to figure out what we're doing because they can't always expect to have
+ 	# a request object, or should we keep it from being ?undef'd?
+-	$_[KERNEL]->post(
+-	   $_[HEAP]->{'LOGHANDLER'}->{'SESSION'},
+-	   $_[HEAP]->{'LOGHANDLER'}->{'EVENT'},
+-	   $request,
+-	   $response->connection->remote_ip(),
+-	) if $_[HEAP]->{'LOGHANDLER'};
+-
+-	# Warn if we had a problem dispatching to the log handler above
+-	warn("I had a problem posting to event '",
+-	     $_[HEAP]->{'LOGHANDLER'}->{'EVENT'},
+-	     "' of the log handler alias '",
+-	     $_[HEAP]->{'LOGHANDLE'}->{'SESSION'},
+-          "'. As reported by Kernel: '$!', perhaps the alias is spelled incorrectly for this handler?")
+-        if $!;
++	if($_[HEAP]->{'LOGHANDLER'}) {
++		$_[KERNEL]->post(
++		   $_[HEAP]->{'LOGHANDLER'}->{'SESSION'},
++		   $_[HEAP]->{'LOGHANDLER'}->{'EVENT'},
++		   $request,
++		   $response->connection->remote_ip());
++
++		# Warn if we had a problem dispatching to the log handler above
++		warn("I had a problem posting to event '",
++		     $_[HEAP]->{'LOGHANDLER'}->{'EVENT'},
++		     "' of the log handler alias '",
++		     $_[HEAP]->{'LOGHANDLE'}->{'SESSION'},
++		  "'. As reported by Kernel: '$!', perhaps the alias is spelled incorrectly for this handler?")
++		if $!;
++	}
+ 
+ 
+ 	# If we received a malformed request then
+@@ -1007,20 +1008,21 @@ sub Request_Output {
+    $_[HEAP]->{'REQUESTS'}->{ $id }->[1] = 1;
+ 
+ 	# Log FINALLY If they have a logFinal handler registered, send out the needed information
+-	$_[KERNEL]->call(
+-		$_[HEAP]->{'LOG2HANDLER'}->{'SESSION'},
+-		$_[HEAP]->{'LOG2HANDLER'}->{'EVENT'},
+-		$_[HEAP]->{'REQUESTS'}{ $id }[3],
+-		$response)
+-	if $_[HEAP]->{'LOG2HANDLER'};
+-
+-	# Warn if we had a problem dispatching to the log handler above
+-	warn("I had a problem posting to event '",
+-		$_[HEAP]->{'LOG2HANDLER'}->{'EVENT'},
+-		"' of the log handler alias '",
+-		$_[HEAP]->{'LOG2HANDLER'}->{'SESSION'},
+-		"'. As reported by Kernel: '$!', perhaps the alias is spelled incorrectly for this handler?")
+-	if $!;
++	if($_[HEAP]->{'LOG2HANDLER'}) {
++		$_[KERNEL]->call(
++			$_[HEAP]->{'LOG2HANDLER'}->{'SESSION'},
++			$_[HEAP]->{'LOG2HANDLER'}->{'EVENT'},
++			$_[HEAP]->{'REQUESTS'}{ $id }[3],
++			$response);
++
++		# Warn if we had a problem dispatching to the log handler above
++		warn("I had a problem posting to event '",
++			$_[HEAP]->{'LOG2HANDLER'}->{'EVENT'},
++			"' of the log handler alias '",
++			$_[HEAP]->{'LOG2HANDLER'}->{'SESSION'},
++			"'. As reported by Kernel: '$!', perhaps the alias is spelled incorrectly for this handler?")
++		if $!;
++	}
+ 
+ 
+    # Debug stuff

Added: trunk/libpoe-component-server-simplehttp-perl/debian/patches/series
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpoe-component-server-simplehttp-perl/debian/patches/series?rev=24627&op=file
==============================================================================
--- trunk/libpoe-component-server-simplehttp-perl/debian/patches/series (added)
+++ trunk/libpoe-component-server-simplehttp-perl/debian/patches/series Tue Aug 26 23:20:44 2008
@@ -1,0 +1,1 @@
+Don't_die_because_of_unrelated_stuff_in_$!.patch




More information about the Pkg-perl-cvs-commits mailing list