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 $file =~ /$::releaseablesdir[\\\/](.*)[\\\/]info\.tsv/; |
273 print "counting distinct releasables in file $file\n"; |
|
274 $file =~ /$::releaseablesdir[\\\/]*(.*)[\\\/]info\.tsv/; |
274 my $package = $1; |
275 my $package = $1; |
275 $package =~ s,\\,/,g; |
276 $package =~ s,\\,/,g; |
276 |
277 |
277 my @releasables; |
278 my @releasables; |
278 open(FILE, $file); |
279 open(FILE, $file); |