Hi folks,
I've got the following code which works, but generates the error message
following it. I've tried varying the code to eliminate the error but I only
manage to get either the working code with error or non-working code without
error.
(Line 95 is the while line)
print "checking file $fname...";
open DAT,"<$fname" ||die "cannot open $fname: $!\n";
my $found=0;
while ((my $line=<DAT>) && (! $found)) {
print "line=$line" if ($DEBUG > 0);
$found=1 if $line=~/$localpart:/;
}
close DAT;
[EMAIL PROTECTED] input]# tidy-mailq|gvim -
Value of <HANDLE> construct can be "0"; test with defined() at
/root/bin/tidy-mailq line 95.
Vim: Reading from stdin...
[EMAIL PROTECTED] input]#
--
Gary Stainburn
This email does not contain private or confidential material as it
may be snooped on by interested government parties for unknown
and undisclosed purposes - Regulation of Investigatory Powers Act, 2000
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
