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

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

Thread Next
From:
Tim Dolezal
Date:
July 14, 2003 13:26
Subject:
[OT] t/badfile....FAILED test 3
Message ID:
000001c34a44$0ae1d630$44cef5c0@dolezal2
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


Thread Next


nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About