Integrate mainline

p4raw-id: //depot/perlio@11294

2 files changed, 5 insertions, 32 deletions

diff --git a/t/lib/warnings/doio b/t/lib/warnings/doio
index 2a357e2755..9ba4d31633 100644
--- a/t/lib/warnings/doio
+++ b/t/lib/warnings/doio
@@ -172,6 +172,11 @@ EXPECT
 OPTION regex
 Can't exec "lskdjfalksdjfdjfkls(:? abc)?": .+
 ########
+# doio.c [win32_execvp]
+use warnings 'exec' ;
+exec $^X, "-e0" ;
+EXPECT
+########
 # doio.c [Perl_nextargv]
 $^W = 0 ;
 my $filename = "./temp.dir" ;
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' ;