diff options
| author | Vsevolod Stakhov <vsevolod@rambler-co.ru> | 2010-07-20 18:28:03 +0400 |
|---|---|---|
| committer | Vsevolod Stakhov <vsevolod@rambler-co.ru> | 2010-07-20 18:28:03 +0400 |
| commit | 8f6f83004804ab50f360fb3c776413ea3a9adc2c (patch) | |
| tree | 2a256aeb47758608f7f893b23fb3922fa1cd8d8f /perl | |
| parent | 473a282dabf716b7d39ac1642c519e6ef43af9fc (diff) | |
| download | rspamd-8f6f83004804ab50f360fb3c776413ea3a9adc2c.tar.gz rspamd-8f6f83004804ab50f360fb3c776413ea3a9adc2c.zip | |
* Strip trailing whitespace characters in Mail::Rspamd::Client
Diffstat (limited to 'perl')
| -rw-r--r-- | perl/lib/Mail/Rspamd/Client.pm | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/perl/lib/Mail/Rspamd/Client.pm b/perl/lib/Mail/Rspamd/Client.pm index d74484002..7f32cd6ee 100644 --- a/perl/lib/Mail/Rspamd/Client.pm +++ b/perl/lib/Mail/Rspamd/Client.pm @@ -964,23 +964,23 @@ sub _do_rspamc_command { }; $cur_metric = $1; } - elsif ($line =~ /^Symbol: (\S+);\s*(.+)${EOL}$/ && $cur_metric) { + elsif ($line =~ /^Symbol: (\S+);\s*(.+)\s*${EOL}$/ && $cur_metric) { # Line with parameters my $symref = $metrics{$cur_metric}->{'symbols'}; push(@$symref, "$1($2)"); } - elsif ($line =~ /^Symbol: (\S+)/ && $cur_metric) { + elsif ($line =~ /^Symbol: (\S+)\s*/ && $cur_metric) { my $symref = $metrics{$cur_metric}->{'symbols'}; push(@$symref, $1); } - elsif ($line =~ /^Urls: (.+)$/ && $cur_metric) { + elsif ($line =~ /^Urls: (.+)\s*$/ && $cur_metric) { @{ $metrics{$cur_metric}->{'urls'} } = split /,\s+/, $1; } - elsif ($line =~ /^Message: (.+)/ && $cur_metric) { + elsif ($line =~ /^Message: (.+)\s*$/ && $cur_metric) { my $symref = $metrics{$cur_metric}->{'messages'}; push(@$symref, $1); } - elsif ($line =~ /^Action: (.+)/ && $cur_metric) { + elsif ($line =~ /^Action: (.+)\s*$/ && $cur_metric) { $metrics{$cur_metric}->{'action'} = $1; } elsif ($line =~ /^${EOL}$/) { |