# Internal routine to force a temp file to be writable after # it is created so that we can unlink it. Windows seems to occassionally # force a file to be readonly when written to certain temp locations sub _force_writable { my $file = shift; my $umask = umask(); umask(066); chmod 0600, $file; umask($umask) if defined $umask; }