diff --git a/mycp/mycp b/mycp/mycp
index 893231d..52a2040 100755
--- a/mycp/mycp
+++ b/mycp/mycp
@@ -183,7 +183,6 @@ sub inperms($) {
 	$mode =~ s/.*(\d{4})$/$1/;
 
 	print "$mode:$user:$group:$fullname\n";
-	exit;
 
 	unless ( -f $permsfile ) {
 		print <<EOT;
@@ -201,7 +200,7 @@ EOT
 		if ( $1 eq $mode && $2 eq $user && $3 eq $group ) {
 			return 1;
 		} elsif ( $option{p} ){
-			$perms =~ s/^(\d{4}):([^-:][^:]*):([^:]+?):$fullname$/$mode:$user:$group:$filename/o;
+			$perms =~ s/^(\d{4}):([^-:][^:]*):([^:]+?):$fullname$/$mode:$user:$group:$fullname/o;
 			open(FH, ">>$permsfile");
 			print FH $perms;
 			close FH;