This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
For now, make "incorrect case" a Win32-only warning.
authorJarkko Hietaniemi <jhi@iki.fi>
Sat, 2 Mar 2002 19:33:29 +0000 (19:33 +0000)
committerJarkko Hietaniemi <jhi@iki.fi>
Sat, 2 Mar 2002 19:33:29 +0000 (19:33 +0000)
p4raw-id: //depot/perl@14949

op.c

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