Rename warning to warnings, from Paul Marquess.

p4raw-id: //depot/cfgperl@4038

1 files changed, 5 insertions, 3 deletions

diff --git a/toke.c b/toke.c
index f351c96591..83086042b5 100644
--- a/toke.c
+++ b/toke.c
@@ -3728,7 +3728,8 @@ Perl_yylex(pTHX)
 	    if (ckWARN(WARN_OCTAL)) {
 		for (d = s; d < PL_bufend && (isSPACE(*d) || *d == '('); d++) ;
 		if (*d != '0' && isDIGIT(*d))
-		    yywarn("chmod: mode argument is missing initial 0");
+		    Perl_warner(aTHX_ WARN_OCTAL,
+		    		"chmod: mode argument is missing initial 0");
 	    }
 	    LOP(OP_CHMOD,XTERM);
 
@@ -4543,8 +4544,9 @@ Perl_yylex(pTHX)
 	case KEY_umask:
 	    if (ckWARN(WARN_OCTAL)) {
 		for (d = s; d < PL_bufend && (isSPACE(*d) || *d == '('); d++) ;
-		if (*d != '0' && isDIGIT(*d))
-		    yywarn("umask: argument is missing initial 0");
+		if (*d != '0' && isDIGIT(*d)) 
+		    Perl_warner(aTHX_ WARN_OCTAL,
+		    		"umask: argument is missing initial 0");
 	    }
 	    UNI(OP_UMASK);