You are viewing a plain text version of this content. The canonical link for it is here.
Posted to commits@spamassassin.apache.org by mm...@apache.org on 2008/01/03 18:46:20 UTC
svn commit: r608572 - /spamassassin/trunk/lib/Mail/SpamAssassin/AsyncLoop.pm
Author: mmartinec
Date: Thu Jan 3 09:46:18 2008
New Revision: 608572
URL: http://svn.apache.org/viewvc?rev=608572&view=rev
Log:
AsyncLoop: call clock_getres only if Time::HiRes is version 1.77 or later
Modified:
spamassassin/trunk/lib/Mail/SpamAssassin/AsyncLoop.pm
Modified: spamassassin/trunk/lib/Mail/SpamAssassin/AsyncLoop.pm
URL: http://svn.apache.org/viewvc/spamassassin/trunk/lib/Mail/SpamAssassin/AsyncLoop.pm?rev=608572&r1=608571&r2=608572&view=diff
==============================================================================
--- spamassassin/trunk/lib/Mail/SpamAssassin/AsyncLoop.pm (original)
+++ spamassassin/trunk/lib/Mail/SpamAssassin/AsyncLoop.pm Thu Jan 3 09:46:18 2008
@@ -48,8 +48,10 @@
use vars qw($timer_resolution);
eval {
require Time::HiRes or die "Error loading Time::HiRes: $@, $!";
- Time::HiRes->import( qw(time CLOCK_REALTIME) );
- $timer_resolution = Time::HiRes::clock_getres(CLOCK_REALTIME());
+ Time::HiRes->import( qw(time) );
+ $timer_resolution =
+ Time::HiRes->VERSION < 1.77 ? 0.001 # wild guess, assume better than 1s
+ : Time::HiRes::clock_getres(Time::HiRes::CLOCK_REALTIME());
1;
} or do {
$timer_resolution = 1; # Perl's builtin timer ticks at one second