don't exit sub via next

2011-08-21 17:36:29 -04:00 · 2011-08-21 17:36:29 -04:00 · 35bc56bb66
parent 5f17d41b3b
commit 35bc56bb66
1 changed files with 1 additions and 1 deletions
--- a/2
+++ b/2
@ -29,7 +29,7 @@ sub processline {
 my %users;
 sub processuser {
 	my $user=shift;
-	next if $user=~/^-/ || $users{$user};
+	return if $user=~/^-/ || $users{$user};
 	$users{$user}=1;
 	my $ret=system("su", $user, "-s", "/bin/sh", "-c", "--", "$0 --nonglobal @ARGV");
 	if ($ret != 0) {