develooper Front page | perl.fwp | Postings from July 2003

[OT] t/badfile....FAILED test 3

Thread Next
Tim Dolezal
July 17, 2003 01:05
[OT] t/badfile....FAILED test 3
Message ID:
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....FAILED test 3
        Failed 1/3 tests, 66.67% okay
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";

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
line 6.
Filehandle BAR opened only for output at line 6.
>>>Died at line 6.

He had the same response on his box.

Can anyone help me out?

Tim Dolezal

Thread Next Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at | Group listing | About