diff options
| author | Fifer, Eric <EFifer@sanwaint.com> | 2000-08-18 18:30:05 +0100 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2000-08-18 18:10:39 +0000 |
| commit | ceb977da9f96fdae76522541d78f3ce7b09a90c4 (patch) | |
| tree | deecda2e95eb1bace5c74c6141cbf609c622cc02 /lib | |
| parent | a8739d98f591b907683dca04b755e0c184620438 (diff) | |
| download | perl-ceb977da9f96fdae76522541d78f3ce7b09a90c4.tar.gz | |
cygwin port
Message-ID: <779F20BCCE5AD31186A50008C75D9979171784@silldn_mail1.sanwaint.com>
p4raw-id: //depot/perl@6700
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/File/Temp.pm | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lib/File/Temp.pm b/lib/File/Temp.pm index bf24ed3671..6fa58e3e19 100644 --- a/lib/File/Temp.pm +++ b/lib/File/Temp.pm @@ -1517,7 +1517,9 @@ sub unlink0 { print "Link count = $fh[3] \n" if $DEBUG; # Make sure that the link count is zero - return ( $fh[3] == 0 ? 1 : 0); + # - Cygwin provides deferred unlinking, however, + # on Win9x the link count remains 1 + return ( $fh[3] == 0 or $^O eq 'cygwin' ? 1 : 0); } else { _deferred_unlink($fh, $path, 0); |