This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Remove the "performance hack" that suppressed used only once warnings
authorNicholas Clark <nick@ccl4.org>
Mon, 16 Apr 2007 16:17:05 +0000 (16:17 +0000)
committerNicholas Clark <nick@ccl4.org>
Mon, 16 Apr 2007 16:17:05 +0000 (16:17 +0000)
for files in the standard library.

p4raw-id: //depot/perl@30969

gv.c

diff --git a/gv.c b/gv.c
index cbe521b..963f0ae 100644 (file)
--- 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 */