diff options
| author | Peter Palfrader <peter@palfrader.org> | 2003-02-28 18:04:18 +0000 |
|---|---|---|
| committer | Peter Palfrader <peter@palfrader.org> | 2003-02-28 18:04:18 +0000 |
| commit | c70e34b15a1f73299d84d8dec285a0ebcd0194ec (patch) | |
| tree | 8f180a91522ba01c4dd8c7ddfa7ebef55ec6ca32 /Echolot/Stats.pm | |
| parent | c8870e1233f5312561b50997ee693ac2a4be58bb (diff) | |
Fix chomp
Diffstat (limited to 'Echolot/Stats.pm')
| -rw-r--r-- | Echolot/Stats.pm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/Echolot/Stats.pm b/Echolot/Stats.pm index 0002ea8..c665b74 100644 --- a/Echolot/Stats.pm +++ b/Echolot/Stats.pm @@ -1,7 +1,7 @@ package Echolot::Stats; # (c) 2002 Peter Palfrader <peter@palfrader.org> -# $Id: Stats.pm,v 1.52 2003/02/28 18:02:31 weasel Exp $ +# $Id: Stats.pm,v 1.53 2003/02/28 18:04:18 weasel Exp $ # =pod @@ -485,7 +485,7 @@ sub compress_broken_chain($@) { my %bad_left; my %bad_right; for my $chain (@list) { - chomp; + $chain = chomp $chain; my ($left, $right) = $chain =~ m/\((\S+) \s (\S+)\)/x or Echolot::Log::warn("Could not parse bad chain '$chain'."), next; @@ -508,7 +508,7 @@ sub compress_broken_chain($@) { }; for my $chain (@list) { - chomp; + $chain = chomp $chain; my ($left, $right) = $chain =~ m/\((\S+) \s (\S+)\)/x or # Echolot::Log::warn("Could not parse bad chain '$chain'."), -- don't warn again push(@result, $chain), |