Re: [perl #30633] Perl's "do" operator with a variety of absolute paths under Cygwin

Message-ID: <20041103012429.GA7196@efn.org>

p4raw-id: //depot/perl@23468

diff --git a/util.h b/util.h
index 2319d15..1a1c9ff 100644 (file)
--- a/util.h
+++ b/util.h
@@ -16,7 +16,7 @@
                 && (isALNUM((f)[1]) || strchr("$-_]>",(f)[1])))))
 
 #else          /* !VMS */
-#  ifdef WIN32
+#  if defined(WIN32) || defined(__CYGWIN__)
 #    define PERL_FILE_IS_ABSOLUTE(f) \
        (*(f) == '/' || *(f) == '\\'            /* UNC/rooted path */   \
         || ((f)[0] && (f)[1] == ':'))          /* drive name */