Subject: | Unportable use of chmod in get method |
Quite a few platforms are unable to chmod filehandles, as done in
Foreign.pm, line 1184, version 0.90_12
Changing it from:
unless (chmod $perm & $numask, $fh) {
To:
unless (chmod $perm & $numask, $local) {
Makes it work on Solaris 10, for example. Probably others too.
Non-0.90 versions are in the clear, as it doesn't chmod $fh, but $local
like the proposed fix.