I have posted this on a couple of other perl lists and recieved no
response, so I thought I would try here.
I get this error on more than one module:
Digest-SHA1-2.03]# make test
PERL_DL_NONLAZY=1 /usr/bin/perl "-MExtUtils::Command::MM" "-e"
"test_harness(0, 'blib/lib', 'blib/arch')" t/*.t
t/badfile....
t/badfile....FAILED test 3
Failed 1/3 tests, 66.67% okay
t/sha1.......ok
Failed Test Stat Wstat Total Fail Failed List of Failed
------------------------------------------------------------------------
-------
t/badfile.t 3 1 33.33% 3
Failed 1/2 test scripts, 50.00% okay. 1/16 subtests failed, 93.75% okay.
make: *** [test_dynamic] Error 29
Uwe Hollerbach had me run:
#!/usr/bin/perl -w
my $line;
open(BAR, ">no-existing-file.$$") || die;
eval {
$line = <BAR> or die;
};
print STDERR ">>>$@<<<\n";
close(BAR);
unlink("no-existing-file.$$");
On my machine (perl 5.8.0, Red Hat 9.0 on x86), this results in the
following message:
Value of <HANDLE> construct can be "0"; test with defined() at test.pl
line 6.
Filehandle BAR opened only for output at test.pl line 6.
>>>Died at test.pl line 6.
<<<
He had the same response on his box.
Can anyone help me out?
Tim Dolezal
