diff options
Diffstat (limited to 't/lib/warnings')
-rw-r--r-- | t/lib/warnings/doio | 27 | ||||
-rw-r--r-- | t/lib/warnings/mg | 4 | ||||
-rw-r--r-- | t/lib/warnings/op | 20 |
3 files changed, 3 insertions, 48 deletions
diff --git a/t/lib/warnings/doio b/t/lib/warnings/doio index a7165ada68..970f33ad51 100644 --- a/t/lib/warnings/doio +++ b/t/lib/warnings/doio @@ -171,15 +171,6 @@ Use of -l on filehandle STDIN at - line 3. Use of -l on filehandle $fh at - line 6. ######## # doio.c [Perl_do_aexec5] -BEGIN { - if ($^O eq 'MacOS') { - print <<EOM; -SKIPPED -# no exec on Mac OS -EOM - exit; - } -} use warnings 'io' ; exec "lskdjfalksdjfdjfkls","" ; no warnings 'io' ; @@ -189,15 +180,6 @@ OPTION regex Can't exec "lskdjfalksdjfdjfkls": .+ ######## # doio.c [Perl_do_exec3] -BEGIN { - if ($^O eq 'MacOS') { - print <<EOM; -SKIPPED -# no exec on Mac OS -EOM - exit; - } -} use warnings 'io' ; exec "lskdjfalksdjfdjfkls", "abc" ; no warnings 'io' ; @@ -207,15 +189,6 @@ OPTION regex Can't exec "lskdjfalksdjfdjfkls(:? abc)?": .+ ######## # doio.c [win32_execvp] -BEGIN { - if ($^O eq 'MacOS') { - print <<EOM; -SKIPPED -# no exec on Mac OS -EOM - exit; - } -} use warnings 'exec' ; exec $^X, "-e0" ; EXPECT diff --git a/t/lib/warnings/mg b/t/lib/warnings/mg index 8915c2866b..9e3652b71e 100644 --- a/t/lib/warnings/mg +++ b/t/lib/warnings/mg @@ -25,7 +25,7 @@ EXPECT ######## # mg.c use warnings 'signal' ; -if ($^O eq 'MSWin32' || $^O eq 'NetWare' || $^O eq 'VMS' || $^O eq 'MacOS') { +if ($^O eq 'MSWin32' || $^O eq 'NetWare' || $^O eq 'VMS') { print "SKIPPED\n# $^O, can't kill() to raise()\n"; exit; } $|=1; @@ -35,7 +35,7 @@ SIGINT handler "fred" not defined. ######## # mg.c no warnings 'signal' ; -if ($^O eq 'MSWin32' || $^O eq 'NetWare' || $^O eq 'VMS' || $^O eq 'MacOS') { +if ($^O eq 'MSWin32' || $^O eq 'NetWare' || $^O eq 'VMS') { print "SKIPPED\n# $^O, can't kill() to raise()\n"; exit; } $|=1; diff --git a/t/lib/warnings/op b/t/lib/warnings/op index 64217c744e..681ec16297 100644 --- a/t/lib/warnings/op +++ b/t/lib/warnings/op @@ -765,20 +765,11 @@ EXPECT Hash %FRED missing the % in argument 1 of keys() at - line 3. ######## # op.c -BEGIN { - if ($^O eq 'MacOS') { - print <<EOM; -SKIPPED -# no exec on Mac OS -EOM - exit; - } -} use warnings 'syntax' ; exec "$^X -e 1" ; my $a EXPECT -Statement unlikely to be reached at - line 13. +Statement unlikely to be reached at - line 4. (Maybe you meant system() when you said exec()?) ######## # op.c @@ -803,15 +794,6 @@ defined(%hash) is deprecated at - line 3. (Maybe you should just omit the defined()?) ######## # op.c -BEGIN { - if ($^O eq 'MacOS') { - print <<EOM; -SKIPPED -# no exec on Mac OS -EOM - exit; - } -} no warnings 'syntax' ; exec "$^X -e 1" ; my $a |