Hi listers, What would be a smart way to test if a file is open ?
I've used the following script, but it's clumsy.
Thanks
#!perl -w
# topen: test if file (filehandle) open
# call: topen ($fh); return: 0 closed, >0 (=1+tell) open
use strict;
sub topen {local $^W = 0; # cut diags
return 1 + tell shift};
1;
__END__
