- $data =~ s/\AFrom [^\r\n]*\r?\n//s;
- eval {
- if ($train eq 'ham') {
- $spamc->hamlearn(\$data);
- } else {
- $spamc->spamlearn(\$data);
- }
- die "spamc failed with: $?\n" if $?;
- };
- $err = $@;
+ $data =~ s/\A[\r\n]*From [^\r\n]*\r?\n//s;
+
+ if ($train ne 'rm') {
+ eval {
+ if ($train eq 'ham') {
+ $spamc->hamlearn(\$data);
+ } elsif ($train eq 'spam') {
+ $spamc->spamlearn(\$data);
+ }
+ die "spamc failed with: $?\n" if $?;
+ };
+ $err = $@;
+ }