r24628 - in /trunk/libpoe-component-server-simplehttp-perl/debian: changelog patches/Don't_die_because_of_unrelated_stuff_in_$!.patch
tincho at users.alioth.debian.org
tincho at users.alioth.debian.org
Tue Aug 26 23:24:38 UTC 2008
Author: tincho
Date: Tue Aug 26 23:24:36 2008
New Revision: 24628
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=24628
Log:
add an $! = undef, just in case..
Modified:
trunk/libpoe-component-server-simplehttp-perl/debian/changelog
trunk/libpoe-component-server-simplehttp-perl/debian/patches/Don't_die_because_of_unrelated_stuff_in_$!.patch
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=24628&op=diff
==============================================================================
--- trunk/libpoe-component-server-simplehttp-perl/debian/changelog (original)
+++ trunk/libpoe-component-server-simplehttp-perl/debian/changelog Tue Aug 26 23:24:36 2008
@@ -2,6 +2,7 @@
* debian/patches: fix a problem that caused POE to crash on some cases
because of a bug in a error trapping conditional.
+ - add an $! = undef, just in case..
-- MartÃn Ferrari <tincho at debian.org> Tue, 26 Aug 2008 20:19:23 -0300
Modified: 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=24628&op=diff
==============================================================================
--- trunk/libpoe-component-server-simplehttp-perl/debian/patches/Don't_die_because_of_unrelated_stuff_in_$!.patch (original)
+++ trunk/libpoe-component-server-simplehttp-perl/debian/patches/Don't_die_because_of_unrelated_stuff_in_$!.patch Tue Aug 26 23:24:36 2008
@@ -2,7 +2,7 @@
===================================================================
--- 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 {
+@@ -769,20 +769,22 @@ 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?
@@ -21,6 +21,7 @@
- "'. As reported by Kernel: '$!', perhaps the alias is spelled incorrectly for this handler?")
- if $!;
+ if($_[HEAP]->{'LOGHANDLER'}) {
++ $! = undef;
+ $_[KERNEL]->post(
+ $_[HEAP]->{'LOGHANDLER'}->{'SESSION'},
+ $_[HEAP]->{'LOGHANDLER'}->{'EVENT'},
@@ -38,7 +39,7 @@
# If we received a malformed request then
-@@ -1007,20 +1008,21 @@ sub Request_Output {
+@@ -1007,20 +1009,22 @@ sub Request_Output {
$_[HEAP]->{'REQUESTS'}->{ $id }->[1] = 1;
# Log FINALLY If they have a logFinal handler registered, send out the needed information
@@ -57,6 +58,7 @@
- "'. As reported by Kernel: '$!', perhaps the alias is spelled incorrectly for this handler?")
- if $!;
+ if($_[HEAP]->{'LOG2HANDLER'}) {
++ $! = undef;
+ $_[KERNEL]->call(
+ $_[HEAP]->{'LOG2HANDLER'}->{'SESSION'},
+ $_[HEAP]->{'LOG2HANDLER'}->{'EVENT'},
More information about the Pkg-perl-cvs-commits
mailing list