From beb4ce7f4f6d8d1993629b24c5fb2564d0b5c4da Mon Sep 17 00:00:00 2001 From: lars Date: Mon, 26 Dec 2005 17:36:52 +0000 Subject: [PATCH] fixed wrong chomp call --- Ezmlm/trunk/Ezmlm.pm | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/Ezmlm/trunk/Ezmlm.pm b/Ezmlm/trunk/Ezmlm.pm index 40479f5..3c13396 100644 --- a/Ezmlm/trunk/Ezmlm.pm +++ b/Ezmlm/trunk/Ezmlm.pm @@ -516,7 +516,8 @@ sub _getconfig_idx5 { my ($file, $opt_num, $temp); # read flag file (available since ezmlm-idx 5.0.0) - $options = chomp($self->getpart('flags')); + $options = $self->getpart('flags'); + $options = chomp($options); # remove prefixed '-' $options =~ s/^-//; @@ -534,7 +535,8 @@ sub _getconfig_idx5 { # "-9" seems to be ignored - this is a good change (tm) while (($file, $opt_num) = each(%optionfiles)) { if (-e "$self->{'LIST_NAME'}/$file") { - $temp = chomp($self->getpart($file)); + $temp = $self->getpart($file); + $temp = chomp($temp); $options .= " -$opt_num '$temp'" if ($temp ne ''); } }