[MacPerl] testing an open file

[Louis Pouzin]

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__