scstadmin: Modify make_path() such that there is only a single leading slash at the start of absolute paths and such that it does not convert relative paths into absolute paths.

git-svn-id: http://svn.code.sf.net/p/scst/svn/trunk@3703 d57e44dd-8a1f-0410-8b47-8ef2f437770f
2026-08-19 05:36:22 +00:00 · 2011-07-21 08:26:04 +00:00
parent 588ed2f4d0
commit 3e13713e87
1 changed files with 4 additions and 1 deletions
@@ -3850,7 +3850,10 @@ sub make_path {
 	my $path;

 	foreach my $element (@_) {
-		$path .= "/$element";
+		if ($path && rindex($path, '/') != length($path) - 1) {
+			$path .= '/';
+		}
+		$path .= $element;
 	}

 	return $path;