From d0676d1896af258692f8fc6ad399a213e24b79e0 Mon Sep 17 00:00:00 2001
From: Ward Wouts <ward@wouts.nl>
Date: Sun, 25 Jan 2004 13:50:42 +0000
Subject: [PATCH] minor fixes

---
 mycp/mycp | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

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;