From b9b95d718d7357147c44c460d0d0ddcf29b87cd9 Mon Sep 17 00:00:00 2001 From: CaS Date: Fri, 1 Mar 2002 16:51:00 +0000 Subject: [PATCH] Pewrmit ~ at start of root paths git-svn-id: svn+ssh://svn.gna.org/svn/gnustep/libs/base/trunk@12944 72102866-910b-0410-8b05-ffd578937521 --- Source/NSUser.m | 10 ++++++++++ 1 file changed, 10 insertions(+) diff --git a/Source/NSUser.m b/Source/NSUser.m index 7338bae95..5f8d74247 100644 --- a/Source/NSUser.m +++ b/Source/NSUser.m @@ -506,10 +506,20 @@ userDirectory(NSString *name, BOOL defaults) val = [val stringByTrimmingSpaces]; if ([key isEqualToString: @"GNUSTEP_USER_ROOT"] == YES) { + if ([val length] > 0 && [val characterAtIndex: 0] == '~') + { + val = [home stringByAppendingString: + [val substringFromIndex: 1]]; + } user = val; } else if ([key isEqualToString: @"GNUSTEP_DEFAULTS_ROOT"] == YES) { + if ([val length] > 0 && [val characterAtIndex: 0] == '~') + { + val = [home stringByAppendingString: + [val substringFromIndex: 1]]; + } defs = val; } }