[win32] add archname to *sitearch in config.{b,g,v}c

[p5sagit/p5-mst-13.2.git] / doio.c

diff --git a/doio.c b/doio.c
index 8413fca..dce271d 100644 (file)
--- a/doio.c
+++ b/doio.c
@@ -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;
@@ -496,7 +500,8 @@ nextargv(register GV *gv)
            return IoIFP(GvIOp(gv));
        }
        else
-           PerlIO_printf(PerlIO_stderr(), "Can't open %s: %s\n",SvPV(sv, na), Strerror(errno));
+           PerlIO_printf(PerlIO_stderr(), "Can't open %s: %s\n",
+             SvPV(sv, na), Strerror(errno));
     }
     if (inplace) {
        (void)do_close(argvoutgv,FALSE);
@@ -922,7 +927,7 @@ do_execfree(void)
     }
 }
 
-#if !defined(OS2) && !defined(WIN32)
+#if !defined(OS2) && !defined(WIN32) && !defined(DJGPP)
 
 bool
 do_exec(char *cmd)