X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=util.h;h=d188e34e2e82af0e76c18421c112c5eda46d426d;hb=aa921f48035f298291146b3a8d6f142ec7cf8696;hp=e01f0ec09e2be1ce2723f55b51d35b3e10e880ce;hpb=bc89e66f06f2a92e37ea7c110f66788fcfbe6847;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/util.h b/util.h
index e01f0ec..d188e34 100644
--- a/util.h
+++ b/util.h
@@ -27,7 +27,7 @@
 	 || ((f)[0] && (f)[1] == ':'))		/* drive name */
 #    else	/* NEITHER DOSISH NOR EPOCISH */
 #      ifdef MACOS_TRADITIONAL
-#        define PERL_FILE_IS_ABSOLUTE(f)	(strchr(f, ':'))
+#        define PERL_FILE_IS_ABSOLUTE(f)	(strchr(f, ':') && *(f) != ':')
 #      else /* !MACOS_TRADITIONAL */
 #        define PERL_FILE_IS_ABSOLUTE(f)	(*(f) == '/')
 #      endif /* MACOS_TRADITIONAL */