#!/usr/bin/perl

package IkiWiki;

use warnings;
use strict;
use IkiWiki;

sub quiet_system (@) {
    # See Debian bug #385939.
    open (SAVEOUT, ">&STDOUT");
    close STDOUT;
    open (STDOUT, ">/dev/null");
    my $ret=system(@_);
    close STDOUT;
    open (STDOUT, ">&SAVEOUT");
    close SAVEOUT;
    return $ret;
}