> for (;;)
> {
> # This bit of code is written this way because of an oddity in Perl.
> # If you replace the second two lines with "last unless ($_ = <>)" you
> # get a warning about a <HANDLE> construct being "0". I can't find
> # another way of getting rid of it in Perl 5.004.
>
> $item = "";
> $_ = <>;
> last unless ($_);
The warning is because that test could succeed for two reasons: end-of-file,
or a line consisting of the character '0' (without newline). Instead, you
could do this:
last unless defined ($_ = <>);
--
Malcolm Ray University of London Computer Centre
--
*** Exim information can be found at
http://www.exim.org/ ***
