[naviserver-commits] naviserver/tcl compat.tcl,1.3,1.4

[Zoran V. <vas...@us...>]

Update of /cvsroot/naviserver/naviserver/tcl
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv22962/tcl

Modified Files:
	compat.tcl 
Log Message:
Removed Tcl ns_normalizepath wrapper


Index: compat.tcl
===================================================================
RCS file: /cvsroot/naviserver/naviserver/tcl/compat.tcl,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** compat.tcl	8 Oct 2005 12:06:07 -0000	1.3
--- compat.tcl	21 Oct 2005 10:07:58 -0000	1.4
***************
*** 142,165 ****
  
  #
- # ns_normalizepath --
- #
- #   Normalize the path. WATCH: this procedure is actually broken
- #   because it will normalize "a/b/c" to "/a/b/c" which is WRONG.
- #   This is because it mimics the broken Ns_NormalizePath C-API.
- #
- #   Please use Tcl [file normalize] instead. This always return
- #   properly normalized absolute path, as expected.
- #
- 
- proc ns_normalizepath {path} {
-     if {[file pathtype $path] == "relative"} {
-         ns_log warning "normalizepath: $path; broken for relative paths"
-         ns_log warning "normalizepath: use \[file normalize\] instead"
-         set path /$path
-     }
-     file normalize $path
- }
- 
- #
  # ns_link --
  #
--- 142,145 ----