BEGIN { chdir 't' if -d 't'; @INC = '../lib'; require './test.pl'; } use Config; #print "$Config{d_seteuid}\n"; $oldeuid = $>; eval '$> = 1'; print "# oldeuid = $oldeuid, euid = $>\n"; print "$Config{d_seteuid}\n";