equal
deleted
inserted
replaced
287 #print "\n\n\n\n"; |
287 #print "\n\n\n\n"; |
288 my $previous = ''; |
288 my $previous = ''; |
289 my @distincts = grep {$_ ne $previous && ($previous = $_, 1) } sort @releasables; |
289 my @distincts = grep {$_ ne $previous && ($previous = $_, 1) } sort @releasables; |
290 |
290 |
291 my $nd = scalar(@distincts); |
291 my $nd = scalar(@distincts); |
292 #print "adding $package -> $nd to releaseables_by_package\n"; |
292 print "adding $package -> $nd to releaseables_by_package\n"; |
293 $::releaseables_by_package->{$package} = $nd; |
293 $::releaseables_by_package->{$package} = $nd; |
294 } |
294 } |
295 } |
295 } |
296 |
296 |
297 sub remove_missing_duplicates |
297 sub remove_missing_duplicates |