From: Nicholas Clark <nick@ccl4.org>
Date: Mon, 16 Apr 2007 16:17:05 +0000 (+0000)
Subject: Remove the "performance hack" that suppressed used only once warnings
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=423b73760d999602951a3f5d94d4897cf8afc306;p=p5sagit%2Fp5-mst-13.2.git

Remove the "performance hack" that suppressed used only once warnings
for files in the standard library.

p4raw-id: //depot/perl@30969
---

diff --git a/gv.c b/gv.c
index cbe521b..963f0ae 100644
--- a/gv.c
+++ b/gv.c
@@ -1390,19 +1390,6 @@ Perl_gv_check(pTHX_ const HV *stash)
 		if (SvTYPE(gv) != SVt_PVGV || GvMULTI(gv))
 		    continue;
 		file = GvFILE(gv);
-		/* performance hack: if filename is absolute and it's a standard
-		 * module, don't bother warning */
-#ifdef MACOS_TRADITIONAL
-#   define LIB_COMPONENT ":lib:"
-#else
-#   define LIB_COMPONENT "/lib/"
-#endif
-		if (file
-		    && PERL_FILE_IS_ABSOLUTE(file)
-		    && (instr(file, LIB_COMPONENT) || instr(file, ".pm")))
-		{
-		    continue;
-		}
 		CopLINE_set(PL_curcop, GvLINE(gv));
 #ifdef USE_ITHREADS
 		CopFILE(PL_curcop) = (char *)file;	/* set for warning */