From f11b3137a67e1dd2486a9865eecacb31f2e44d43 Mon Sep 17 00:00:00 2001 From: Siep Kroonenberg Date: Sun, 28 Sep 2008 09:57:37 +0000 Subject: Handle trailing backslash in TLroot git-svn-id: svn://tug.org/texlive/trunk@10772 c570f23f-e606-0410-a88d-b1316a301751 --- Master/bin/win32/dviout.vbs | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) (limited to 'Master/bin/win32/dviout.vbs') diff --git a/Master/bin/win32/dviout.vbs b/Master/bin/win32/dviout.vbs index 6b33236a32d..3c271499cd5 100644 --- a/Master/bin/win32/dviout.vbs +++ b/Master/bin/win32/dviout.vbs @@ -34,12 +34,17 @@ If InStr(sTL, " ") <> 0 Then sTL = oTL.ShortPath End If +'strip trailing "\" +If Right(sTL,1) = "\" Then + sTL = Left(sTL,Len(sTL)-1) +End If + ' Ghostscript environment settings sGS = sTL & "\tlpkg\tlgs" oEnv("PATH") = sGS & "\bin;" & oEnv("PATH") oEnv("GS_LIB") = sGS & "\fonts;" & sGS & "\lib;" & sGS & "\Resource" -sCmd = sTL & "tlpkg\dviout\dviout.exe -TEXROOT=" +sCmd = sTL & "\tlpkg\dviout\dviout.exe -TEXROOT=" 'add font trees to command-Line -- cgit v1.2.3