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