Browse Source

Remove extraneous space at end of lines.

suites/ascii
Bill Allombert 17 years ago
parent
commit
95d751ab3e
  1. 14
      popularity-contest

14
popularity-contest

@ -77,7 +77,7 @@ while (<PACKAGES>)
{
/^.*installed *(.+)$/ or next;
my $pkg=$1;
$popcon{$pkg}=[0,0,$pkg,"<NOFILES>",""];
$popcon{$pkg}=[0,0,$pkg,"<NOFILES>"];
open FILES, "$dpkg_db/$pkg.list";
my $bestatime = undef;
while (<FILES>)
@ -92,20 +92,22 @@ while (<PACKAGES>)
if (!defined($bestatime) || $atime >= $bestatime)
{
$bestatime=$atime;
my $st="";
if ($atime < $lastmonth)
{
# Not accessed since more than 30 days.
$st="<OLD>";
$popcon{$pkg}=[$atime,$ctime,$pkg,$_,"<OLD>"];
}
elsif ($ctime > $lastmonth && $atime-$ctime < $daylen)
{
# Installed/upgraded less than a month ago and not used after
# install/upgrade day.
$st="<RECENT-CTIME>";
$popcon{$pkg}=[$atime,$ctime,$pkg,$_,"<RECENT-CTIME>"];
}
else
{
# Else we `vote' for the package.
$popcon{$pkg}=[$atime,$ctime,$pkg,$_];
}
# Else we `vote' for the package.
$popcon{$pkg}=[$atime,$ctime,$pkg,$_,$st];
}
}
close FILES;

Loading…
Cancel
Save