Skip to content
This repository

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse code

remove trailing spaces from addresses

  • Loading branch information...
commit 428e57470013c48c74e8a5093e86b3fcb6e51cd5 1 parent 3b59c45
Barbie authored

Showing 1 changed file with 2 additions and 1 deletion. Show diff stats Hide diff stats

  1. +2 1  lib/CPAN/Testers/WWW/Statistics.pm
3  lib/CPAN/Testers/WWW/Statistics.pm
@@ -335,7 +335,8 @@ sub tester {
335 335 my $fh = IO::File->new($address) or die "Cannot open address file [$address]: $!";
336 336 while(<$fh>) {
337 337 chomp;
338   - my ($source,$target) = (/(.*),(.*)/);
  338 + my ($source,$target) = split(',',$_,2);
  339 + $target =~ s/\s+$//;
339 340 next unless($source && $target);
340 341 $map{$source} = $target;
341 342 $known{$target}++;

0 comments on commit 428e574

Please sign in to comment.
Something went wrong with that request. Please try again.