diff options
| author | Jan Dubois <jand@activestate.com> | 1999-11-09 01:38:33 +0100 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 1999-11-13 18:33:39 +0000 |
| commit | 6b980173bfa6365bee0d03ef9751b9376bcf91f6 (patch) | |
| tree | 6049eb5fb9f51811ecf56f110d7131f471642eda /win32/perllib.c | |
| parent | 62457c2b778d3bf5f6718956cc232ac5baecfc29 (diff) | |
| download | perl-6b980173bfa6365bee0d03ef9751b9376bcf91f6.tar.gz | |
[5.005_62 PATCH] support link() on WinNT and NTFS
To: perl5-porters@perl.org, Perl-Win32-Porters@activestate.com
Cc: Douglas Lankshear <dougl@activestate.com>,
Gurusamy Sarathy <gsar@activestate.com>
Message-ID: <382b5d24.10899522@smtprelay.t-online.de>
p4raw-id: //depot/cfgperl@4571
Diffstat (limited to 'win32/perllib.c')
| -rw-r--r-- | win32/perllib.c | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/win32/perllib.c b/win32/perllib.c index 0cf21cb627..22ac61d489 100644 --- a/win32/perllib.c +++ b/win32/perllib.c @@ -548,6 +548,12 @@ PerlLIOIsatty(struct IPerlLIO *I, int fd) return isatty(fd); } +int +PerlLIOLink(struct IPerlLIO*, const char*oldname, const char *newname) +{ + return win32_link(oldname, newname); +} + long PerlLIOLseek(struct IPerlLIO *I, int handle, long offset, int origin) { @@ -652,6 +658,7 @@ struct IPerlLIO perlLIO = PerlLIOFileStat, PerlLIOIOCtl, PerlLIOIsatty, + PerlLIOLink, PerlLIOLseek, PerlLIOLstat, PerlLIOMktemp, |