diff options
| author | fukachan <fukachan> | 2004-08-14 06:20:00 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2004-08-14 06:20:00 +0000 |
| commit | 0d015da380ad6e372916d292c459e072c6cbddad (patch) | |
| tree | 8be9d2489a02005affb2e1ce46ae74761a7e47b6 | |
| parent | 5b4ca72f4ea954180a96451dd4ef1a14e7b4360f (diff) | |
| download | fml8-0d015da380ad6e372916d292c459e072c6cbddad.tar.gz fml8-0d015da380ad6e372916d292c459e072c6cbddad.tar.bz2 fml8-0d015da380ad6e372916d292c459e072c6cbddad.zip | |
ensure initial value to be defined.
| -rw-r--r-- | fml/lib/FML/Process/Kernel.pm | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/fml/lib/FML/Process/Kernel.pm b/fml/lib/FML/Process/Kernel.pm index d59c2450..ece24c88 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.236 2004/08/12 09:53:38 fukachan Exp $ +# $FML: Kernel.pm,v 1.237 2004/08/13 11:45:23 fukachan Exp $ # package FML::Process::Kernel; @@ -1125,12 +1125,14 @@ sub _store_message_into_incoming_queue # write to queue file. my $wh = new FileHandle "> $queue_file"; if (defined $wh) { - my ($n, $w, $buf); + my $n = 0; + my $w = 0; + my $buf; $wh->autoflush(1); while ($n = sysread(*STDIN{IO}, $buf, 8192)) { $total += $n; - $w = syswrite($wh, $buf, 8192); + $w = syswrite($wh, $buf, 8192) || 0; unless ($w == $n) { $fatal = 1; } |