checklink

Hugo,

  I just installed 'checklink'; very nice.
  Here is an idea for a slight improvement.

    27a28,29
    > use Time::HiRes ;
    > 
    1203,1206c1205,1209
    <     require 'sys/syscall.ph';
    <     my $timestamp = pack('LL', ());
    <     syscall(&SYS_gettimeofday, $timestamp, 0) != -1 or $timestamp = 0;
    <     return($timestamp);
    ---
    >     return pack('LL', Time::HiRes::gettimeofday () );
    > #   require 'sys/syscall.ph';
    > #   my $timestamp = pack('LL', ());
    > #   syscall(&SYS_gettimeofday, $timestamp, 0) != -1 or $timestamp = > 0;
    > #   return($timestamp);

  I think it is better to use Time::HiRes instead of syscall stuff.

  regards.

  Henk Penning

Henk P. Penning, Dept of Computer Science, Utrecht University \__/  \
Padualaan 14, P.O. Box 80.089, 3508 TB Utrecht, The Netherlands. \__/
Telephone: +31-30-2534106, fax: 2513791, NIC-handle: HPP1 _/  \__/  \
News.answers http://www.cs.uu.nl/cgi-bin/faqwais     \__/  \__/  \__/