1#!/usr/bin/perl
2
3  (-d "../t") and chdir "..";
4  system("sudo", "-n", "$^X", "-T", "t/root_spamd_tell.t",
5        "--override", "run_root_tests", "1", @ARGV);
6  ($? >> 8 == 0) or die "exec failed";
7
8  my $uid = (stat("t"))[4];
9  system("sudo -n chown -R $uid t/log") if $uid;
10
11