Retract #11166 (and #11237).

p4raw-id: //depot/perl@11285

2 files changed, 22 insertions, 32 deletions

diff --git a/t/lib/warnings/op b/t/lib/warnings/op
index 20185964b6..2c2c3f5113 100644
--- a/t/lib/warnings/op
+++ b/t/lib/warnings/op
@@ -102,11 +102,6 @@
     %s() called too early to check prototype		[Perl_peep]
         fred() ; sub fred ($$) {}
 
-     Non-octal literal mode (%d) specified
-	(Did you mean 0%d instead?)
-	chmod 777, "foo";
-	mkdir "foo", 777;
-	umask 222;
 
      Use of "package" with no arguments is deprecated
 	package;
@@ -936,33 +931,6 @@ Useless use of push with no values at - line 4.
 Useless use of unshift with no values at - line 5.
 ########
 # op.c
-use warnings 'chmod' ;
-chmod 777;
-no warnings 'chmod' ;
-chmod 777;
-EXPECT
-Non-octal literal mode (777) specified at - line 3.
-	(Did you mean 0777 instead?)
-########
-# op.c
-use warnings 'umask' ;
-umask 222;
-no warnings 'umask' ;
-umask 222;
-EXPECT
-Non-octal literal mode (222) specified at - line 3.
-	(Did you mean 0222 instead?)
-########
-# op.c
-use warnings 'mkdir' ;
-mkdir "", 777;
-no warnings 'mkdir' ;
-mkdir "", 777;
-EXPECT
-Non-octal literal mode (777) specified at - line 3.
-	(Did you mean 0777 instead?)
-########
-# op.c
 use warnings 'deprecated' ;
 package;
 no warnings 'deprecated' ;
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