uh_parser/releaseables.pm
changeset 290 2ca4533db9fe
parent 286 8e1488905621
child 292 3c4e66eaef4a
equal deleted inserted replaced
289:052986e0e361 290:2ca4533db9fe
   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