diff options
| author | Molnar Laszlo <molnarl@cdata.tvnet.hu> | 1997-11-21 11:58:26 +0100 |
|---|---|---|
| committer | Malcolm Beattie <mbeattie@sable.ox.ac.uk> | 1997-12-17 14:10:50 +0000 |
| commit | 39e571d41067215a80f26089b260f1418caeb36b (patch) | |
| tree | e0bca433f79179f69a7b158d5bcd0759cc98e18c /doio.c | |
| parent | 1f70e1ea8280242937e42514e140f4e467e09404 (diff) | |
| download | perl-39e571d41067215a80f26089b260f1418caeb36b.tar.gz | |
Major changes to the DOS/djgpp port (including threading):
Subject: Re: dos-djgpp port not in perl 5.004_54
p4raw-id: //depot/perl@373
Diffstat (limited to 'doio.c')
| -rw-r--r-- | doio.c | 10 |
1 files changed, 7 insertions, 3 deletions
@@ -416,8 +416,12 @@ nextargv(register GV *gv) #ifndef FLEXFILENAMES if (Stat(SvPVX(sv),&statbuf) >= 0 && statbuf.st_dev == filedev - && statbuf.st_ino == fileino ) { - warn("Can't do inplace edit: %s > 14 characters", + && statbuf.st_ino == fileino +#ifdef DJGPP + || (_djstat_fail_bits & _STFAIL_TRUENAME)!=0 +#endif + ) { + warn("Can't do inplace edit: %s would not be uniq", SvPVX(sv) ); do_close(gv,FALSE); continue; @@ -922,7 +926,7 @@ do_execfree(void) } } -#if !defined(OS2) && !defined(WIN32) +#if !defined(OS2) && !defined(WIN32) && !defined(DJGPP) bool do_exec(char *cmd) |