This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
t/op/fork.t: Don't output shell warning
authorKarl Williamson <khw@cpan.org>
Tue, 11 Apr 2017 20:11:40 +0000 (14:11 -0600)
committerKarl Williamson <khw@cpan.org>
Thu, 1 Jun 2017 13:05:15 +0000 (07:05 -0600)
If the shell doesn't support 'ulimit -u', it can cause unexpected
warnings that can cause the tests to fail.  This happens on s/390.

t/op/fork.t

index b69a929..be3125d 100644 (file)
@@ -22,7 +22,7 @@ SKIP: {
     skip "This test can only be run under bash or zsh"
         unless $shell =~ m{/(?:ba|z)sh$};
     my $probe = qx{
     skip "This test can only be run under bash or zsh"
         unless $shell =~ m{/(?:ba|z)sh$};
     my $probe = qx{
-        $shell -c 'ulimit -u 1 2>&1 && echo good'
+        $shell -c 'ulimit -u 1 2>/dev/null && echo good'
     };
     chomp $probe;
     skip "Can't set ulimit -u on this system: $probe"
     };
     chomp $probe;
     skip "Can't set ulimit -u on this system: $probe"