equal
deleted
inserted
replaced
268 }; |
268 }; |
269 find($finder, $::releaseablesdir); |
269 find($finder, $::releaseablesdir); |
270 |
270 |
271 for my $file (@files) |
271 for my $file (@files) |
272 { |
272 { |
273 print "counting distinct releasables in file $file\n"; |
273 #print "counting distinct releasables in file $file\n"; |
274 $file =~ /$::releaseablesdir[\\\/]*(.*)[\\\/]info\.tsv/; |
274 my $escaped_releaseablesdir = quotemeta($::releaseablesdir); |
|
275 $file =~ m/$escaped_releaseablesdir[\\\/]*(.*)[\\\/]info\.tsv/; |
275 my $package = $1; |
276 my $package = $1; |
276 $package =~ s,\\,/,g; |
277 $package =~ s,\\,/,g; |
277 |
278 |
278 my @releasables; |
279 my @releasables; |
279 open(FILE, $file); |
280 open(FILE, $file); |
288 #print "\n\n\n\n"; |
289 #print "\n\n\n\n"; |
289 my $previous = ''; |
290 my $previous = ''; |
290 my @distincts = grep {$_ ne $previous && ($previous = $_, 1) } sort @releasables; |
291 my @distincts = grep {$_ ne $previous && ($previous = $_, 1) } sort @releasables; |
291 |
292 |
292 my $nd = scalar(@distincts); |
293 my $nd = scalar(@distincts); |
293 print "adding $package -> $nd to releaseables_by_package\n"; |
294 #print "adding $package -> $nd to releaseables_by_package\n"; |
294 $::releaseables_by_package->{$package} = $nd; |
295 $::releaseables_by_package->{$package} = $nd; |
295 } |
296 } |
296 } |
297 } |
297 |
298 |
298 sub remove_missing_duplicates |
299 sub remove_missing_duplicates |