--- cvsroot/Coro/myhttpd/access.pl	2001/12/03 05:40:09	1.20
+++ cvsroot/Coro/myhttpd/access.pl	2001/12/03 05:52:37	1.21
@@ -46,11 +46,11 @@
 }
 
 sub sort {
-   $_[0]{wait} = [
-      sort { $b->{spb} <=> $a->{spb} }
-         grep { $_ && ($_->{spb} = ($::NOW-$_->{time})/($_->{size}||1)), $_ }
-            @{$_[0]{wait}}
-   ];
+   my @queue = grep $_, @{$_[0]{wait}};
+
+   $_->{spb} = ($::NOW-$_->{time}) / ($_->{size} || 1) for @queue;
+   
+   $_[0]{wait} = [sort { $b->{spb} <=> $a->{spb} } @queue];
 }
 
 sub waiters {