develooper Front page | perl.perl5.porters | Postings from July 2003

Re: [PATCH] test clean-up for VMS

Thread Previous | Thread Next
From:
Craig A. Berry
Date:
July 20, 2003 08:43
Subject:
Re: [PATCH] test clean-up for VMS
Message ID:
3F1AB8A4.2070207@mac.com
Michael G Schwern wrote:
>>-  unlink @files;
>>+  for $f (@files) { close $f; 1 while unlink $f; }
>> }
> 
> 
> Any reason this couldn't be written:  1 while unlink @files; ?

I was trying to make explicit the fact that multiple versions of each
file may need to be deleted. On reflection my formulation doesn't really
communicate anything that the simpler "1 while unlink" is missing.

> Does it make any sense to close() a filename?

Well, it doesn't to Perl, and I don't know why it did to me when I wrote
it. Obviously that has to go.

Another version of the patch is attached with these issues corrected.


Thread Previous | 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