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

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

Thread Previous | 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 Previous | Thread Next Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at | Group listing | About