diff options
| author | fukachan <fukachan> | 2001-11-04 06:53:22 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2001-11-04 06:53:22 +0000 |
| commit | ce5b2bc9242f6ce9eedbfb5c0a287ebec9ed8a26 (patch) | |
| tree | fc9bc2e4c7a4dc8dadfec43b44e0986fdda5b10f /fml/lib/Mail/ThreadTrack | |
| parent | 0bf3e0bdc1c419541ac3c68ff30c3aeaf6ad88a9 (diff) | |
| download | fml8-ce5b2bc9242f6ce9eedbfb5c0a287ebec9ed8a26.tar.gz fml8-ce5b2bc9242f6ce9eedbfb5c0a287ebec9ed8a26.tar.bz2 fml8-ce5b2bc9242f6ce9eedbfb5c0a287ebec9ed8a26.zip | |
check by defined($self->{ _pragma })
Diffstat (limited to 'fml/lib/Mail/ThreadTrack')
| -rw-r--r-- | fml/lib/Mail/ThreadTrack/Analyze.pm | 10 |
1 files changed, 7 insertions, 3 deletions
diff --git a/fml/lib/Mail/ThreadTrack/Analyze.pm b/fml/lib/Mail/ThreadTrack/Analyze.pm index 4202d046..242aab17 100644 --- a/fml/lib/Mail/ThreadTrack/Analyze.pm +++ b/fml/lib/Mail/ThreadTrack/Analyze.pm @@ -4,7 +4,7 @@ # All rights reserved. This program is free software; you can # redistribute it and/or modify it under the same terms as Perl itself. # -# $FML: Analyze.pm,v 1.8 2001/11/03 11:58:45 fukachan Exp $ +# $FML: Analyze.pm,v 1.9 2001/11/04 04:43:18 fukachan Exp $ # package Mail::ThreadTrack::Analyze; @@ -223,7 +223,9 @@ sub update_thread_status my $subject = ''; my $pragma = ''; - return if $self->{ _pragma } eq 'ignore'; + if (defined $self->{ _pragma }) { + return if $self->{ _pragma } eq 'ignore'; + } unless (ref($msg) eq 'Mail::Message') { croak("invalid object"); @@ -451,7 +453,9 @@ sub update_db my $config = $self->{ _config }; my $ml_name = $config->{ ml_name }; - return if $self->{ _pragma } eq 'ignore'; + if (defined $self->{ _pragma }) { + return if $self->{ _pragma } eq 'ignore'; + } $self->db_open(); |