do subname() is deprecated, so update this hunk of test dating from perl 1.

[p5sagit/p5-mst-13.2.git] / gv.c

diff --git a/gv.c b/gv.c
index 38f7208..e967f90 100644 (file)
--- a/gv.c
+++ b/gv.c
@@ -729,7 +729,7 @@ Perl_gv_autoload4(pTHX_ HV *stash, const char *name, STRLEN len, I32 method)
      */
     if (!method && (GvCVGEN(gv) || GvSTASH(gv) != stash)
     )
-       Perl_ck_warner(aTHX_ packWARN2(WARN_DEPRECATED, WARN_SYNTAX),
+       Perl_ck_warner(aTHX_ packWARN(WARN_DEPRECATED),
                       "Use of inherited AUTOLOAD for non-method %s::%.*s() is deprecated",
                       packname, (int)len, name);