diff options
| author | hugo <hugo@localhost> | 2001-11-26 18:18:49 +0000 |
|---|---|---|
| committer | hugo <hugo@localhost> | 2001-11-26 18:18:49 +0000 |
| commit | 2a98c9ad83924c7c99e64a17e6ba616a059fecab (patch) | |
| tree | 174fcf0849c6a6f528867b5721c41d13cc5e3954 | |
| parent | 19956402c00c6341b3cecf02ae6844c9fe7e09ed (diff) | |
| download | markup-validator-2a98c9ad83924c7c99e64a17e6ba616a059fecab.zip markup-validator-2a98c9ad83924c7c99e64a17e6ba616a059fecab.tar.gz markup-validator-2a98c9ad83924c7c99e64a17e6ba616a059fecab.tar.bz2 | |
Applied patch from Henk P. Penning <henkp@cs.uu.nl>:
Using Time::HiRes instead of sys/syscall.ph (should be more portable)
See: http://lists.w3.org/Archives/Public/www-validator/2001OctDec/0224.html
| -rwxr-xr-x | httpd/cgi-bin/checklink.pl | 10 |
1 files changed, 4 insertions, 6 deletions
diff --git a/httpd/cgi-bin/checklink.pl b/httpd/cgi-bin/checklink.pl index c2b60dd..ca85016 100755 --- a/httpd/cgi-bin/checklink.pl +++ b/httpd/cgi-bin/checklink.pl @@ -5,7 +5,7 @@ # (c) 1999-2001 World Wide Web Consortium # based on Renaud Bruyeron's checklink.pl # -# $Id: checklink.pl,v 2.86 2001-09-21 14:15:53 hugo Exp $ +# $Id: checklink.pl,v 2.87 2001-11-26 18:18:49 hugo Exp $ # # This program is licensed under the W3C(r) License: # http://www.w3.org/Consortium/Legal/copyright-software @@ -38,7 +38,7 @@ $| = 1; # Version info my $PROGRAM = 'W3C checklink'; -my $VERSION = q$Revision: 2.86 $ . '(c) 1999-2001 W3C'; +my $VERSION = q$Revision: 2.87 $ . '(c) 1999-2001 W3C'; my $REVISION; ($REVISION = $VERSION) =~ s/Revision: (\d+\.\d+) .*/$1/; # Different options specified by the user @@ -1200,10 +1200,8 @@ sub authentication() { ################## sub get_timestamp() { - require 'sys/syscall.ph'; - my $timestamp = pack('LL', ()); - syscall(&SYS_gettimeofday, $timestamp, 0) != -1 or $timestamp = 0; - return($timestamp); + use Time::HiRes; + return pack('LL', Time::HiRes::gettimeofday()); } sub time_diff() { |