[naviserver-commits] naviserver/tcl file.tcl,1.10,1.11

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

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

Modified Files:
	file.tcl 
Log Message:
Fixed broken ns_sourcepproc (had variable typo)


Index: file.tcl
===================================================================
RCS file: /cvsroot/naviserver/naviserver/tcl/file.tcl,v
retrieving revision 1.10
retrieving revision 1.11
diff -C2 -d -r1.10 -r1.11
*** file.tcl	7 Oct 2006 20:29:40 -0000	1.10
--- file.tcl	9 Oct 2006 12:56:35 -0000	1.11
***************
*** 120,129 ****
  proc ns_sourceproc {args} {
  
!     set file [ns_url2file [ns_conn url]]
!     if {![file exists $file]} {
          ns_returnnotfound
          return
      }
!     set code [catch {ns_sourcefile $file} res]
      if {$code == 1} {
         if {$::errorCode eq "NS_TCL_ABORT"} {
--- 120,129 ----
  proc ns_sourceproc {args} {
  
!     set path [ns_url2file [ns_conn url]]
!     if {![file exists $path]} {
          ns_returnnotfound
          return
      }
!     set code [catch {ns_sourcefile $path} res]
      if {$code == 1} {
         if {$::errorCode eq "NS_TCL_ABORT"} {