[Bps-public-commit] r17433 - RT-Extension-rt_cpan_org/html/Public

[ruz at bestpractical.com]

Author: ruz
Date: Tue Dec 30 07:04:37 2008
New Revision: 17433

Modified:
   RT-Extension-rt_cpan_org/html/Public/bugs-per-dist.tsv

Log:
* s/self/m/
* each root is an array reference

Modified: RT-Extension-rt_cpan_org/html/Public/bugs-per-dist.tsv
==============================================================================
--- RT-Extension-rt_cpan_org/html/Public/bugs-per-dist.tsv	(original)
+++ RT-Extension-rt_cpan_org/html/Public/bugs-per-dist.tsv	Tue Dec 30 07:04:37 2008
@@ -52,7 +52,7 @@
 $r->content_type("text/plain");
 
 my $fname = '';
-foreach my $test ( map "$_/Public/bugs-per-dist.data", $self->interp->comp_root_array ) {
+foreach my $test ( map "$_/Public/bugs-per-dist.data", map $_->[1], $m->interp->comp_root_array ) {
     next unless -f $test;
 
     $fname = $test;