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