sub change_uid { my $user = shift or die "no user defined"; my ($uid,$gid) = (getpwnam( $user ))[2,3]; die "user not found" unless defined $uid; $( = $gid; $) = $gid; $< = $uid; $> = $uid; }
In reply to Change UID for threads? by mbalex
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |