MacPerl-AnyPerl re: pestering diags by Louis Pouzin- April 16, 2004 Thanks Ron,Earlier, I had misinterpreted the warning and tested the value of the file handle variable, to no avail.I would not have thought of the case you mentioned. Here is a test. Things happen just as you said. 1. use strict; $ = "n"; 2. my ($fil,$lin) = &39;peru&39;; 3. open OUT,">$fil"; 4. local $; print OUT 0; only digit zero, no n 5. close OUT; 6. open IN,$fil; 7. print &39;1: &39;,tell IN; 8. $lin = <IN> or print "2: nil"; 9. print &39;3:...http://www.nntp.perl.org/group/perl.macperl.anyperl/2004/04/msg289.html Re: MacPerl-AnyPerl pestering diags by Ronald J Kimball- April 14, 2004 On Tue, Apr 13, 2004 at 10:54:55PM +0200, Louis Pouzin wrote:> I&39;m puzzled. Why is gore interfering at all, and what&39;s wrong with the> squeaking statements What&39;s wrong with the statements is exactly what the warnings are tellingyou!Value of <HANDLE> construct can be "0"; test with defined() at qlib.pm line 25.If the last line of a file is the single character 0 (not followed by anewline), then a boolean test will incorrectly suggest that no data wasread from...http://www.nntp.perl.org/group/perl.macperl.anyperl/2004/04/msg288.html pestering diags by Louis Pouzin- April 14, 2004 Hi,Not sure this list is the right place for this problem.On unix I have been pestered for a while with a diag I can&39;t figure out.Here is a test case: Main script "tdiag.pl" reads:!usrlocalbinperl -w test diag IOuse strict;$ = "n"; print with nprint ".. perl version: $";use plib qw(ofil);use qlib qw(msep glin);$ARGV0 = &39;truc&39;; file truc contains some textlocal (IN); filehandleplib::ofil(IN) exit; open fileqlib::msep(IN); print 1st linefor (1..5)...http://www.nntp.perl.org/group/perl.macperl.anyperl/2004/04/msg287.html |