r25801 - in /branches/upstream/libnet-dns-async-perl/current: META.yml lib/Net/DNS/Async.pm

ansgar-guest at users.alioth.debian.org ansgar-guest at users.alioth.debian.org
Mon Oct 6 16:13:05 UTC 2008


Author: ansgar-guest
Date: Mon Oct  6 16:12:50 2008
New Revision: 25801

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=25801
Log:
[svn-upgrade] Integrating new upstream version, libnet-dns-async-perl (1.07)

Modified:
    branches/upstream/libnet-dns-async-perl/current/META.yml
    branches/upstream/libnet-dns-async-perl/current/lib/Net/DNS/Async.pm

Modified: branches/upstream/libnet-dns-async-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libnet-dns-async-perl/current/META.yml?rev=25801&op=diff
==============================================================================
--- branches/upstream/libnet-dns-async-perl/current/META.yml (original)
+++ branches/upstream/libnet-dns-async-perl/current/META.yml Mon Oct  6 16:12:50 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:         Net-DNS-Async
-version:      1.06
+version:      1.07
 version_from: lib/Net/DNS/Async.pm
 installdirs:  site
 requires:

Modified: branches/upstream/libnet-dns-async-perl/current/lib/Net/DNS/Async.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libnet-dns-async-perl/current/lib/Net/DNS/Async.pm?rev=25801&op=diff
==============================================================================
--- branches/upstream/libnet-dns-async-perl/current/lib/Net/DNS/Async.pm (original)
+++ branches/upstream/libnet-dns-async-perl/current/lib/Net/DNS/Async.pm Mon Oct  6 16:12:50 2008
@@ -16,7 +16,7 @@
 use Time::HiRes;
 use Storable qw(freeze thaw);
 
-$VERSION = '1.06';
+$VERSION = '1.07';
 $_LEVEL = 0;
 
 sub new {
@@ -138,7 +138,7 @@
 		$time = 0 if $time < 0;
 	}
 
-	my @sockets = $self->{Selector}->can_read($time - time());
+	my @sockets = $self->{Selector}->can_read($time);
 	for my $socket (@sockets) {
 		# If we recursed from the user callback into add(), then
 		# we might have read from and closed this socket.




More information about the Pkg-perl-cvs-commits mailing list