r17598 - in /branches/upstream/libdanga-socket-perl/current: CHANGES META.yml lib/Danga/Socket.pm

[roberto at users.alioth.debian.org]

Author: roberto
Date: Sun Mar 16 03:35:02 2008
New Revision: 17598

URL: http://svn.debian.org/wsvn/?sc=1&rev=17598
Log:
[svn-upgrade] Integrating new upstream version, libdanga-socket-perl (1.59)

Modified:
    branches/upstream/libdanga-socket-perl/current/CHANGES
    branches/upstream/libdanga-socket-perl/current/META.yml
    branches/upstream/libdanga-socket-perl/current/lib/Danga/Socket.pm

Modified: branches/upstream/libdanga-socket-perl/current/CHANGES
URL: http://svn.debian.org/wsvn/branches/upstream/libdanga-socket-perl/current/CHANGES?rev=17598&op=diff
==============================================================================
--- branches/upstream/libdanga-socket-perl/current/CHANGES (original)
+++ branches/upstream/libdanga-socket-perl/current/CHANGES Sun Mar 16 03:35:02 2008
@@ -1,4 +1,8 @@
-   -- restructure tree to be more "normal", with lib/ directory
+
+1.59
+   -- Don't keep watching for write after all writing is completed OK
+      (Dave Leadbeater)
+   -- Reset() now closes the Epoll or KQueue socket (Radu Greab)
 
 1.58
    -- Remove unnecessary bless() calls in tests (5.10 compatibility)

Modified: branches/upstream/libdanga-socket-perl/current/META.yml
URL: http://svn.debian.org/wsvn/branches/upstream/libdanga-socket-perl/current/META.yml?rev=17598&op=diff
==============================================================================
--- branches/upstream/libdanga-socket-perl/current/META.yml (original)
+++ branches/upstream/libdanga-socket-perl/current/META.yml Sun Mar 16 03:35:02 2008
@@ -1,7 +1,7 @@
 # http://module-build.sourceforge.net/META-spec.html
 #XXXXXXX This is a prototype!!!  It will change in the future!!! XXXXX#
 name:         Danga-Socket
-version:      1.58
+version:      1.59
 version_from: lib/Danga/Socket.pm
 installdirs:  site
 requires:

Modified: branches/upstream/libdanga-socket-perl/current/lib/Danga/Socket.pm
URL: http://svn.debian.org/wsvn/branches/upstream/libdanga-socket-perl/current/lib/Danga/Socket.pm?rev=17598&op=diff
==============================================================================
--- branches/upstream/libdanga-socket-perl/current/lib/Danga/Socket.pm (original)
+++ branches/upstream/libdanga-socket-perl/current/lib/Danga/Socket.pm Sun Mar 16 03:35:02 2008
@@ -100,7 +100,7 @@
 my $opt_bsd_resource = eval "use BSD::Resource; 1;";
 
 use vars qw{$VERSION};
-$VERSION = "1.58";
+$VERSION = "1.59";
 
 use warnings;
 no  warnings qw(deprecated);
@@ -185,6 +185,9 @@
     %PLCMap = ();
     $DoneInit = 0;
 
+    POSIX::close($Epoll)  if defined $Epoll  && $Epoll  >= 0;
+    POSIX::close($KQueue) if defined $KQueue && $KQueue >= 0;
+    
     *EventLoop = *FirstTimeEventLoop;
 }
 
@@ -1063,6 +1066,8 @@
                                                $written, $self->{fd}, $need_queue);
             $self->{write_buf_offset} = 0;
 
+            $self->watch_write(0) if $self->{event_watch} & POLLOUT;
+
             # this was our only write, so we can return immediately
             # since we avoided incrementing the buffer size or
             # putting it in the buffer.  we also know there