1#!/usr/bin/perl 2 3 (-d "../t") and chdir ".."; 4 system("sudo", "-n", "$^X", "-T", "t/root_spamd_tell_paranoid.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