unlink() problem
Robinow, David
drobinow@dayton.adroit.com
Thu Aug 9 09:31:00 GMT 2001
> -----Original Message-----
> From: Robinow, David [ mailto:drobinow@dayton.adroit.com ]
> Sent: Wednesday, August 08, 2001 4:37 PM
> Subject: RE: unlink() problem
> > ... The net result is that you lose your data.
> >
> > I can't think of anyway around it except to know that you
> can't do inplace
> > editing on cygwin.
> >
> > -- John Wiersba
>
> > > >$ touch asdf
> > > >$ perl -i -pe 1 asdf
> > > >Can't do inplace edit on asdf: Permission denied.
> But using ActiveState perl,
>
> D:\home>perl -i -pe 1 asdf
> Can't do inplace edit without backup.
>
> and the file's not clobbered.
> Time to look at the perl source code.
The following seems to do the trick.
--- perl-5.6.1-1/doio.c Thu Aug 9 11:34:16 2001
+++ perl-5.6.1-1/doio.c~ Sun Dec 17 23:46:49 2000
@@ -655,7 +655,7 @@
#endif
}
else {
-#if !defined(DOSISH) && !defined(AMIGAOS) && !defined(__CYGWIN__)
+#if !defined(DOSISH) && !defined(AMIGAOS)
# ifndef VMS /* Don't delete; use automatic file versioning */
if (UNLINK(PL_oldname) < 0) {
if (ckWARN_d(WARN_INPLACE))
--
Unsubscribe info: http://cygwin.com/ml/#unsubscribe-simple
Bug reporting: http://cygwin.com/bugs.html
Documentation: http://cygwin.com/docs.html
FAQ: http://cygwin.com/faq/
More information about the Cygwin
mailing list