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