# HG changeset patch # User Dario Sestito # Date 1283770801 -3600 # Node ID 2b7e66ca13baff97c7d71c76abf134bc24ef8654 # Parent a86b0062651140b51b688113d7071a9114dc1925 Fix for total releasables count not appearing diff -r a86b00626511 -r 2b7e66ca13ba uh_parser/releaseables.pm --- 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; } } diff -r a86b00626511 -r 2b7e66ca13ba uh_parser/uh.pl --- 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 .= "$failuresbyseverity"; } - 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 .= "".$missing_by_package->{$package}."/".$releaseables_by_package->{$package}."" if ($missing); $packageline .= "\n"; print AGGREGATED "$packageline\n";