|
@@ -1,6 +1,6 @@
|
|
|
#!/usr/bin/perl
|
|
|
|
|
|
-require 'sys/syscall.ph';
|
|
|
+#require 'sys/syscall.ph';
|
|
|
$|=1;
|
|
|
|
|
|
$total = 1;
|
|
@@ -15,10 +15,10 @@ for($i=0;$i<$total;$i++) {
|
|
|
while(<FD>) {
|
|
|
$c += length($_);
|
|
|
}
|
|
|
- $TIMEVAL_T = "LL";
|
|
|
- $now = pack($TIMEVAL_T, ());
|
|
|
- syscall(&SYS_gettimeofday, $now, 0) != -1 or die "gettimeofday: $!";
|
|
|
- @now = unpack($TIMEVAL_T, $now);
|
|
|
+# $TIMEVAL_T = "LL";
|
|
|
+# $now = pack($TIMEVAL_T, ());
|
|
|
+# syscall(&SYS_gettimeofday, $now, 0) != -1 or die "gettimeofday: $!";
|
|
|
+# @now = unpack($TIMEVAL_T, $now);
|
|
|
print "Client $i exiting ($c chars).\n";
|
|
|
exit(0);
|
|
|
}
|