--- Emerge-Progress_0.99.perl 2006-04-17 00:41:57.827468180 +0200 +++ Emerge-Progress_0.99-1.perl 2006-04-17 00:58:18.649623989 +0200 @@ -254,6 +254,7 @@ { unless($packages -> {$package_list[$testi]} -> {'status'} =~ "Completed" or $packages -> {$package_list[$testi]} -> {'status'} =~ "Terminated") { + my $time = time(); my $pkg = $packages -> {$package_list[$testi]} -> {'name'}; &eta($pkg); my $eta = &gettime($packages -> {$pkg} -> {'eta'}); @@ -337,7 +338,8 @@ { my $pkg = $_[0]; my $start_time = $packages -> {$pkg} -> {'start_time'}; - my $p = &percent($pkg); + &percent($pkg); + my $p = $packages -> {$pkg} -> {'percent'}; my $t = time(); if(defined($p)) {