diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-07-12 03:27:28 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-07-12 03:27:28 +0000 |
| commit | a86a20aad3dee6ffff452254654a89df75943779 (patch) | |
| tree | 6ab14e31665a822c5612ed4b3bb392a33eab66a2 /t/lib/warnings/toke | |
| parent | c89df6bff3e1d35ec00d05ede1265446fbb1d8c0 (diff) | |
| download | perl-a86a20aad3dee6ffff452254654a89df75943779.tar.gz | |
Retract #11166 (and #11237).
p4raw-id: //depot/perl@11285
Diffstat (limited to 't/lib/warnings/toke')
| -rw-r--r-- | t/lib/warnings/toke | 22 |
1 files changed, 22 insertions, 0 deletions
diff --git a/t/lib/warnings/toke b/t/lib/warnings/toke index 14b745da22..242b0059fb 100644 --- a/t/lib/warnings/toke +++ b/t/lib/warnings/toke @@ -46,12 +46,18 @@ toke.c AOK warn(warn_reserved $a = abc; + chmod() mode argument is missing initial 0 + chmod 3; + Possible attempt to separate words with commas @a = qw(a, b, c) ; Possible attempt to put comments in qw() list @a = qw(a b # c) ; + umask: argument is missing initial 0 + umask 3; + %s (...) interpreted as function print ("") printf ("") @@ -256,6 +262,14 @@ EXPECT Unquoted string "abc" may clash with future reserved word at - line 3. ######## # toke.c +use warnings 'chmod' ; +chmod 3; +no warnings 'chmod' ; +chmod 3; +EXPECT +chmod() mode argument is missing initial 0 at - line 3. +######## +# toke.c use warnings 'qw' ; @a = qw(a, b, c) ; no warnings 'qw' ; @@ -272,6 +286,14 @@ EXPECT Possible attempt to put comments in qw() list at - line 3. ######## # toke.c +use warnings 'umask' ; +umask 3; +no warnings 'umask' ; +umask 3; +EXPECT +umask: argument is missing initial 0 at - line 3. +######## +# toke.c use warnings 'syntax' ; print ("") EXPECT |