From d00f10f7aa92b3645b55a3235d4bea884094d2cf Mon Sep 17 00:00:00 2001 From: Peter Palfrader Date: Fri, 28 Feb 2003 18:06:01 +0000 Subject: Fix chomp II --- Echolot/Stats.pm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'Echolot/Stats.pm') 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 -# $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), -- cgit v1.2.3