[m-rev.] diff: bootcheck: avoid UNC paths

[Fergus Henderson]

Estimated hours taken: 0.25
Branches: main

tools/bootcheck:
	Don't put a trailing "/" in the definition of WORKSPACE.
	The trailing slash caused problems for .NET (and presumably
	for Mingw too) because e.g. "$WORKSPACE/library" became
	"...//library", which was treated by Windows as being a
	UNC path, i.e. the bit before the // is interpreted as
	a host name.

Workspace: /home/fjh/ws/hermes
Index: tools/bootcheck
===================================================================
RCS file: /home/mercury1/repository/mercury/tools/bootcheck,v
retrieving revision 1.146
diff -u -d -r1.146 bootcheck
--- tools/bootcheck	15 Feb 2003 21:52:50 -0000	1.146
+++ tools/bootcheck	3 Mar 2003 14:40:06 -0000
@@ -1047,19 +1047,19 @@
 
 	if test "$test_grade" = "$grade"
 	then
-		stage2_insert="stage2/"
+		stage2_insert="/stage2"
 	else
 		stage2_insert=""
 	fi
 
-	WORKSPACE="$root/${stage2_insert}"
+	WORKSPACE="$root${stage2_insert}"
 	export WORKSPACE	
 
-	MMAKE_DIR="$root/${stage2_insert}scripts"
+	MMAKE_DIR="$root${stage2_insert}/scripts"
 	export MMAKE_DIR
 
 	# Set PATH for mkinit, mmc, mgnuc, ml etc
-	PATH=$root/${stage2_insert}util:$root/${stage2_insert}scripts:$PATH
+	PATH=$root${stage2_insert}/util:$root${stage2_insert}/scripts:$PATH
 	export PATH
 fi
 

-- 
Fergus Henderson <fjh at cs.mu.oz.au>  |  "I have always known that the pursuit
The University of Melbourne         |  of excellence is a lethal habit"
WWW: <http://www.cs.mu.oz.au/~fjh>  |     -- the last words of T. S. Garp.
--------------------------------------------------------------------------
mercury-reviews mailing list
post:  mercury-reviews at cs.mu.oz.au
administrative address: owner-mercury-reviews at cs.mu.oz.au
unsubscribe: Address: mercury-reviews-request at cs.mu.oz.au Message: unsubscribe
subscribe:   Address: mercury-reviews-request at cs.mu.oz.au Message: subscribe
--------------------------------------------------------------------------