From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Sat, 2 Mar 2002 19:33:29 +0000 (+0000)
Subject: For now, make "incorrect case" a Win32-only warning.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=fe324f5219fabe555722b32dabaa379e79d84a16;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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);
     }