X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=gv.c;h=117667c07d3fc8fc2b81f4b6e5bef6b8560704a0;hb=6f36ad4ab3b6497d1280576be438eea8cce4348e;hp=2d43338448fe6c01228855ec16bf286be1ce6fa0;hpb=7272584d0d275e06fe4442e1b6aecb95109596e4;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/gv.c b/gv.c
index 2d43338..117667c 100644
--- a/gv.c
+++ b/gv.c
@@ -1081,7 +1081,12 @@ Perl_gv_check(pTHX_ HV *stash)
 		 * module, don't bother warning */
 		if (file
 		    && PERL_FILE_IS_ABSOLUTE(file)
-		    && (instr(file, "/lib/") || instr(file, ".pm")))
+#ifdef MACOS_TRADITIONAL
+		    && (instr(file, ":lib:")
+#else
+		    && (instr(file, "/lib/")
+#endif
+		    || instr(file, ".pm")))
 		{
 		    continue;
 		}
@@ -1313,7 +1318,6 @@ Perl_Gv_AMupdate(pTHX_ HV *stash)
 CV*
 Perl_gv_handler(pTHX_ HV *stash, I32 id)
 {
-    dTHR;
     MAGIC *mg;
     AMT *amtp;