summaryrefslogtreecommitdiff
path: root/Echolot
diff options
context:
space:
mode:
authorPeter Palfrader <peter@palfrader.org>2003-02-28 18:06:01 +0000
committerPeter Palfrader <peter@palfrader.org>2003-02-28 18:06:01 +0000
commitd00f10f7aa92b3645b55a3235d4bea884094d2cf (patch)
tree91ca97b9ed00c6599279a85603b91778c1532b3c /Echolot
parentc70e34b15a1f73299d84d8dec285a0ebcd0194ec (diff)
Fix chomp II
Diffstat (limited to 'Echolot')
-rw-r--r--Echolot/Stats.pm6
1 files changed, 3 insertions, 3 deletions
diff --git a/Echolot/Stats.pm b/Echolot/Stats.pm
index c665b74..a3695f4 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.53 2003/02/28 18:04:18 weasel Exp $
+# $Id: Stats.pm,v 1.54 2003/02/28 18:06:01 weasel Exp $
#
=pod
@@ -485,7 +485,7 @@ sub compress_broken_chain($@) {
my %bad_left;
my %bad_right;
for my $chain (@list) {
- $chain = 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) {
- $chain = 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),