diff options
| author | fukachan <fukachan> | 2004-09-28 13:37:10 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2004-09-28 13:37:10 +0000 |
| commit | 2fba133acf946d5d73964f9eef3fa0bae4cea7e5 (patch) | |
| tree | 18a4b7863fd360976c4c6c715a916da8afd03ba2 | |
| parent | 2b794b7aad959a2e684bf34f0f97a1f1f0b650e0 (diff) | |
| download | fml8-2fba133acf946d5d73964f9eef3fa0bae4cea7e5.tar.gz fml8-2fba133acf946d5d73964f9eef3fa0bae4cea7e5.tar.bz2 fml8-2fba133acf946d5d73964f9eef3fa0bae4cea7e5.zip | |
vaflidate if $pcb defined or not
| -rw-r--r-- | fml/lib/FML/Process/State.pm | 10 |
1 files changed, 7 insertions, 3 deletions
diff --git a/fml/lib/FML/Process/State.pm b/fml/lib/FML/Process/State.pm index 7e9d1e5e..b1c5152e 100644 --- a/fml/lib/FML/Process/State.pm +++ b/fml/lib/FML/Process/State.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: State.pm,v 1.14 2004/07/23 15:59:10 fukachan Exp $ +# $FML: State.pm,v 1.15 2004/08/13 15:02:49 fukachan Exp $ # package FML::Process::State; @@ -668,7 +668,9 @@ sub mail_queue_set_incoming_queue my ($curproc, $queue) = @_; my $pcb = $curproc->pcb(); - $pcb->set("incoming_smtp_transaction", "queue_object", $queue); + if (defined $pcb) { + $pcb->set("incoming_smtp_transaction", "queue_object", $queue); + } } @@ -681,7 +683,9 @@ sub mail_queue_get_incoming_queue my ($curproc) = @_; my $pcb = $curproc->pcb(); - $pcb->get("incoming_smtp_transaction", "queue_object") || undef; + if (defined $pcb) { + $pcb->get("incoming_smtp_transaction", "queue_object") || undef; + } } |