diff options
| author | Mark-Jason Dominus <mjd@plover.com> | 2001-07-11 20:59:31 -0400 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-07-12 04:25:53 +0000 |
| commit | 3eae5ce4a4b90029f63b3704e1e4f298978a360c (patch) | |
| tree | 12fda88525f15037f03338b539dd001478e70778 /toke.c | |
| parent | 3fcd5a54ee9a769b0df77dcf2827b3be2e6ddbd1 (diff) | |
| download | perl-3eae5ce4a4b90029f63b3704e1e4f298978a360c.tar.gz | |
Re: [PATCH: perl@11181] UCD.t fails LATIN|Latin test
Message-ID: <20010712045931.8543.qmail@plover.com>
Remove the chmod/umask leading zero warning.
p4raw-id: //depot/perl@11290
Diffstat (limited to 'toke.c')
| -rw-r--r-- | toke.c | 12 |
1 files changed, 0 insertions, 12 deletions
@@ -4175,12 +4175,6 @@ Perl_yylex(pTHX) LOP(OP_CRYPT,XTERM); case KEY_chmod: - if (ckWARN(WARN_CHMOD)) { - for (d = s; d < PL_bufend && (isSPACE(*d) || *d == '('); d++) ; - if (*d != '0' && isDIGIT(*d)) - Perl_warner(aTHX_ WARN_CHMOD, - "chmod() mode argument is missing initial 0"); - } LOP(OP_CHMOD,XTERM); case KEY_chown: @@ -5038,12 +5032,6 @@ Perl_yylex(pTHX) LOP(OP_UTIME,XTERM); case KEY_umask: - if (ckWARN(WARN_UMASK)) { - for (d = s; d < PL_bufend && (isSPACE(*d) || *d == '('); d++) ; - if (*d != '0' && isDIGIT(*d)) - Perl_warner(aTHX_ WARN_UMASK, - "umask: argument is missing initial 0"); - } UNI(OP_UMASK); case KEY_unshift: |