default mkdir() mode argument to 0777

p4raw-id: //depot/perl@5164

1 files changed, 1 insertions, 1 deletions

diff --git a/toke.c b/toke.c
index df9d6a1bcf..6000aba6cf 100644
--- a/toke.c
+++ b/toke.c
@@ -3955,7 +3955,7 @@ Perl_yylex(pTHX)
 		for (d = s; d < PL_bufend && (isSPACE(*d) || *d == '('); d++) ;
 		if (*d != '0' && isDIGIT(*d))
 		    Perl_warner(aTHX_ WARN_OCTAL,
-		    		"chmod: mode argument is missing initial 0");
+		    		"chmod() mode argument is missing initial 0");
 	    }
 	    LOP(OP_CHMOD,XTERM);