Re: how to make close() fail

Seems like a completely unnecessary test to me, but ...

sub TIEHANDLE { bless \$_[1], $_[0] };;
sub CLOSE{ 0 };;
tie *FH, 'main';;
close FH or die 'Aaaaaaaaaaaaarg!';;
Aaaaaaaaaaaaarg! at (eval 12) line 1, <STDIN> line 4.
[download]

With the rise and rise of 'Social' network sites: 'Computers are making people easier to use everyday'

Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.

"Science is about questioning the status quo. Questioning authority".

In the absence of evidence, opinion is indistinguishable from prejudice.

RIP Neil Armstrong

Comment on Re: how to make close() fail Download Code
Re^2: how to make close() fail by dave_the_m (Parson) on Sep 29, 2012 at 09:22 UTC
Seems liek a completely unnecessary test to me NFS for example does buffered writes "over the wire", so all the writes apparently work, only for the final flush associated with the close() to fail (e.g. due to filesystem full) Dave.	[reply]
Re^3: how to make close() fail by BrowserUk (Pope) on Sep 29, 2012 at 09:41 UTC
I know close can fail, but that wasn't my point. How complicated can a failed-to-close code path be that you can't test it 'by inspection'? And if it is complicated enough to warrant it, it probably indicates poor design. More likely this is the triumph of a "100% code coverage" mandate over reason. With the rise and rise of 'Social' network sites: 'Computers are making people easier to use everyday' Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error. "Science is about questioning the status quo. Questioning authority". In the absence of evidence, opinion is indistinguishable from prejudice. RIP Neil Armstrong	[reply]


Welcome to the Monastery
	PerlMonks

Re: how to make close() fail

The best material for plates (tableware) is: