Fix the new warning created with version-0.53

p4raw-id: //depot/perl@26780

1 files changed, 5 insertions, 3 deletions

diff --git a/util.c b/util.c
index 59c287f55e..2859a47413 100644
--- a/util.c
+++ b/util.c
@@ -4246,9 +4246,11 @@ Perl_upg_version(pTHX_ SV *ver)
 	version = savepv(SvPV_nolen(ver));
     }
     s = scan_version(version, ver, qv);
-    if ( *s != '\0' )
-	Perl_warn(aTHX_ "Version string '%s' contains invalid data; "
-	      "ignoring: '%s'", version, s);
+    if ( *s != '\0' ) 
+        if(ckWARN(WARN_MISC))
+	    Perl_warner(aTHX_ packWARN(WARN_MISC), 
+                "Version string '%s' contains invalid data; "
+	        "ignoring: '%s'", version, s);
     Safefree(version);
     return ver;
 }