hotfix CPAN.pm to force only ftp URLs

[p5sagit/p5-mst-13.2.git] / util.h

diff --git a/util.h b/util.h
index db91c18..6eab055 100644 (file)
--- a/util.h
+++ b/util.h
@@ -32,11 +32,7 @@
        (*(f) == '/'                                                    \
         || ((f)[0] && (f)[1] == ':'))          /* drive name */
 #    else      /* NEITHER DOSISH NOR EPOCISH NOR SYMBIANISH */
-#      ifdef MACOS_TRADITIONAL
-#        define PERL_FILE_IS_ABSOLUTE(f)       (strchr(f, ':') && *(f) != ':')
-#      else /* !MACOS_TRADITIONAL */
-#        define PERL_FILE_IS_ABSOLUTE(f)       (*(f) == '/')
-#      endif /* MACOS_TRADITIONAL */
+#      define PERL_FILE_IS_ABSOLUTE(f) (*(f) == '/')
 #    endif     /* DOSISH */
 #   endif      /* NETWARE */
 #  endif       /* WIN32 */