diff options
| author | fukachan <fukachan> | 2005-08-08 03:52:30 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2005-08-08 03:52:30 +0000 |
| commit | e93c02e73997293c5a2c0de6932c34a45a46615f (patch) | |
| tree | fbdf00293fd9848958695a70e5a3dbb7488b6a30 | |
| parent | df79c47fb69a9a2ea018c6eba27d0f8314317d05 (diff) | |
| download | fml8-e93c02e73997293c5a2c0de6932c34a45a46615f.tar.gz fml8-e93c02e73997293c5a2c0de6932c34a45a46615f.tar.bz2 fml8-e93c02e73997293c5a2c0de6932c34a45a46615f.zip | |
FNF: if (defined $queue) { $queue->open( ... );}
| -rw-r--r-- | fml/lib/FML/Process/Kernel.pm | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/fml/lib/FML/Process/Kernel.pm b/fml/lib/FML/Process/Kernel.pm index e3dd1a97..0d80f5d2 100644 --- a/fml/lib/FML/Process/Kernel.pm +++ b/fml/lib/FML/Process/Kernel.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: Kernel.pm,v 1.259 2005/06/04 08:53:48 fukachan Exp $ +# $FML: Kernel.pm,v 1.260 2005/07/01 10:05:35 fukachan Exp $ # package FML::Process::Kernel; @@ -1201,7 +1201,10 @@ sub _store_message_into_incoming_queue my $fatal = 0; # write to queue file. - my $wh = $queue->open("incoming", { mode => "w" }); + my $wh = undef; + if (defined $queue) { + $wh = $queue->open("incoming", { mode => "w" }); + } if (defined $wh) { my $n = 0; my $w = 0; |