Changeset 3188 for trunk/essentials/dev-lang/perl/util.h

Timestamp:

Apr 22, 2007, 10:57:48 AM (18 years ago)

Author:

bird

Message:

Applied patch from Paul (aka Creeping).

File:

• trunk/essentials/dev-lang/perl/util.h (modified) (2 diffs)

trunk/essentials/dev-lang/perl/util.h

@@ -27 +27 @@
          || ((f)[0] == '\\' && (f)[1] == '\\')  /* UNC path */  \
          ||     ((f)[3] == ':'))                                /* volume name, currently only sys */
-#  else         /* !NETWARE */
-#    if defined( DOSISH) || defined(EPOC)
+#  else         /* !__NETWARE */
+#    if defined( __KLIBC__)
+#      define PERL_FILE_IS_ABSOLUTE(f) \
+        (*(f) == '/' || *(f) == '\\'    \
+         || ((f)[1] == ':' && (f)[2] == '/') || ((f)[1] == ':' && (f)[2] == '\\'))              /* drive name */
+#  else         /* !__KLIBC__ */
+#    if defined( DOSISH) || defined(EPOC) 
 #      define PERL_FILE_IS_ABSOLUTE(f) \
         (*(f) == '/'                                                    \
@@ -40 +45 @@
 #    endif      /* DOSISH */
 #   endif       /* NETWARE */
+#   endif       /* __KLIBC__ */
 #  endif        /* WIN32 */
 #endif          /* VMS */