For now, make "incorrect case" a Win32-only warning.

p4raw-id: //depot/perl@14949

diff --git a/op.c b/op.c
index a03f0e5..1af8113 100644 (file)
--- a/op.c
+++ b/op.c
@@ -3451,11 +3451,13 @@ Perl_utilize(pTHX_ int aver, I32 floor, OP *version, OP *id, OP *arg)
            newSTATEOP(0, Nullch, imop) ));
 
     if (packname) {
+#ifdef WIN32
         if (ckWARN(WARN_MISC) && !gv_stashpvn(packname, packlen, FALSE)) {
             Perl_warner(aTHX_ WARN_MISC,
                         "Package `%s' not found "
                         "(did you use the incorrect case?)", packname);
         }
+#endif
         safefree(packname);
     }