Suppress remctld output in Perl tests

Until I have a better way of handling the interleaving of output,
send the output from remctld to /dev/null for the Perl tests.

1 files changed, 9 insertions, 2 deletions

diff --git a/perl/t/lib/Util.pm b/perl/t/lib/Util.pm
index f9cbbd0..0c29930 100644
--- a/perl/t/lib/Util.pm
+++ b/perl/t/lib/Util.pm
@@ -120,7 +120,7 @@ sub keytab_valid {
 # the keytab it uses for authentication, and the configuration file it should
 # load.
 sub remctld_spawn {
-    my ($path, $principal, $keytab, $config) = @_;
+    my ($path, $principal, $keytab, $config, $silent) = @_;
     unlink 'test-pid';
     my @command = ($path, '-m', '-p', 14373, '-s', $principal, '-P',
                    'test-pid', '-f', $config, '-S', '-F', '-k', $keytab);
@@ -129,7 +129,14 @@ sub remctld_spawn {
     if (not defined $pid) {
         die "cannot fork: $!\n";
     } elsif ($pid == 0) {
-        open (STDOUT, '>&STDERR') or die "cannot redirect stdout: $!\n";
+        if ($silent) {
+            open (STDOUT, '>', '/dev/null')
+              or die "cannot redirect stdout: $!\n";
+            open (STDERR, '>', '/dev/null')
+              or die "cannot redirect stdout: $!\n";
+        } else {
+            open (STDOUT, '>&STDERR') or die "cannot redirect stdout: $!\n";
+        }
         exec (@command) or die "cannot exec $path: $!\n";
     } else {
         my $tries = 0;