--- a/uh_parser/releaseables.pm	Fri Sep 03 15:32:48 2010 +0100
+++ b/uh_parser/releaseables.pm	Mon Sep 06 12:00:01 2010 +0100
@@ -270,8 +270,9 @@
 	
 	for my $file (@files)
 	{
-		print "counting distinct releasables in file $file\n";
-		$file =~ /$::releaseablesdir[\\\/]*(.*)[\\\/]info\.tsv/;
+		#print "counting distinct releasables in file $file\n";
+		my $escaped_releaseablesdir = quotemeta($::releaseablesdir);
+		$file =~ m/$escaped_releaseablesdir[\\\/]*(.*)[\\\/]info\.tsv/;
 		my $package = $1;
 		$package =~ s,\\,/,g;
 		
@@ -290,7 +291,7 @@
 		my @distincts = grep {$_ ne $previous && ($previous = $_, 1) } sort @releasables;
 		
 		my $nd = scalar(@distincts);
-		print "adding $package -> $nd to releaseables_by_package\n";
+		#print "adding $package -> $nd to releaseables_by_package\n";
 		$::releaseables_by_package->{$package} = $nd;
 	}
 }

--- a/uh_parser/uh.pl	Fri Sep 03 15:32:48 2010 +0100
+++ b/uh_parser/uh.pl	Mon Sep 06 12:00:01 2010 +0100
@@ -151,6 +151,7 @@
 
 print "Generating HTML\n";
 
+$outputdir =~ s,/,\\,g;
 system("rd /S /Q $outputdir") if (-d $outputdir);
 mkdir ($outputdir);
 
@@ -319,7 +320,7 @@
 			$failuresbyseverity = $recipe_failures_num_by_severity->{$package}->{$_} if (defined $recipe_failures_num_by_severity->{$package}->{$_});
 			$packageline .= "<td>$failuresbyseverity</td>";
 		}
-		print "package $package, releasables in this package: $releaseables_by_package->{$package}\n";
+		#print "package $package, releasables in this package: $releaseables_by_package->{$package}\n";
 		$packageline .= "<td>".$missing_by_package->{$package}."/".$releaseables_by_package->{$package}."</td>" if ($missing);
 		$packageline .= "</tr>\n";
 		print AGGREGATED "$packageline\n";