--- 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;