uh_parser/releaseables.pm
changeset 319 3c4e66eaef4a
parent 317 2ca4533db9fe
child 322 2b7e66ca13ba
--- a/uh_parser/releaseables.pm	Thu Sep 02 17:58:49 2010 +0100
+++ b/uh_parser/releaseables.pm	Fri Sep 03 11:18:29 2010 +0100
@@ -270,7 +270,8 @@
 	
 	for my $file (@files)
 	{
-		$file =~ /$::releaseablesdir[\\\/](.*)[\\\/]info\.tsv/;
+		print "counting distinct releasables in file $file\n";
+		$file =~ /$::releaseablesdir[\\\/]*(.*)[\\\/]info\.tsv/;
 		my $package = $1;
 		$package =~ s,\\,/,g;