Permalink
Browse files

fix case for OS names again :(

  • Loading branch information...
1 parent 6ba866c commit 23b529aabc4ad6fb143dba790b3193ac5766ff44 @barbie committed Apr 2, 2012
Showing with 2 additions and 2 deletions.
  1. +2 −2 lib/CPAN/Testers/Data/Generator.pm
@@ -107,9 +107,9 @@ sub new {
}
# build OS names map
- @rows = $self->{CPANSTATS}->get_query('array','SELECT osname,ostitle FROM osname');
+ @rows = $self->{CPANSTATS}->get_query('array','SELECT osname FROM osname');
for my $row (@rows) {
- $self->{OSNAMES}{lc $row->[0]} ||= $row->[1];
+ $self->{OSNAMES}{lc $row->[0]} ||= lc $row->[0];
}
$OSNAMES = join('|',keys %{$self->{OSNAMES}}) if(keys %{$self->{OSNAMES}});

0 comments on commit 23b529a

Please sign in to comment.