r17600 - in /trunk/libdanga-socket-perl: CHANGES META.yml debian/changelog debian/copyright lib/Danga/Socket.pm

[roberto at users.alioth.debian.org]

Author: roberto
Date: Sun Mar 16 03:36:09 2008
New Revision: 17600

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=17600
Log:
* New upstream release.
* debian/copyright: Use dist-based URL.

Modified:
    trunk/libdanga-socket-perl/CHANGES
    trunk/libdanga-socket-perl/META.yml
    trunk/libdanga-socket-perl/debian/changelog
    trunk/libdanga-socket-perl/debian/copyright
    trunk/libdanga-socket-perl/lib/Danga/Socket.pm

Modified: trunk/libdanga-socket-perl/CHANGES
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdanga-socket-perl/CHANGES?rev=17600&op=diff
==============================================================================
--- trunk/libdanga-socket-perl/CHANGES (original)
+++ trunk/libdanga-socket-perl/CHANGES Sun Mar 16 03:36:09 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: trunk/libdanga-socket-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdanga-socket-perl/META.yml?rev=17600&op=diff
==============================================================================
--- trunk/libdanga-socket-perl/META.yml (original)
+++ trunk/libdanga-socket-perl/META.yml Sun Mar 16 03:36:09 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: trunk/libdanga-socket-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdanga-socket-perl/debian/changelog?rev=17600&op=diff
==============================================================================
--- trunk/libdanga-socket-perl/debian/changelog (original)
+++ trunk/libdanga-socket-perl/debian/changelog Sun Mar 16 03:36:09 2008
@@ -1,3 +1,10 @@
+libdanga-socket-perl (1.59-1) unstable; urgency=low
+
+  * New upstream release.
+  * debian/copyright: Use dist-based URL.
+
+ -- Roberto C. Sanchez <roberto at debian.org>  Sat, 15 Mar 2008 23:35:41 -0400
+
 libdanga-socket-perl (1.58-1) unstable; urgency=low
 
   [ gregor herrmann ]

Modified: trunk/libdanga-socket-perl/debian/copyright
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdanga-socket-perl/debian/copyright?rev=17600&op=diff
==============================================================================
--- trunk/libdanga-socket-perl/debian/copyright (original)
+++ trunk/libdanga-socket-perl/debian/copyright Sun Mar 16 03:36:09 2008
@@ -1,6 +1,6 @@
 This is the debian package for the Danga-Socket module. It was created by
 Krzysztof Krzyzaniak (eloy) <eloy at debian.org> using dh-make-perl.
-It was downloaded from: http://www.cpan.org/modules/by-module/Danga/
+It was downloaded from: http://search.cpan.org/dist/Danga-Socket/
 
 The upstream authors are: 
 	- Brad Fitzpatrick <brad at danga.com> - author

Modified: trunk/libdanga-socket-perl/lib/Danga/Socket.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdanga-socket-perl/lib/Danga/Socket.pm?rev=17600&op=diff
==============================================================================
--- trunk/libdanga-socket-perl/lib/Danga/Socket.pm (original)
+++ trunk/libdanga-socket-perl/lib/Danga/Socket.pm Sun Mar 16 03:36:09 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