From: Jeff R. <dv...@us...> - 2012-05-11 17:13:39
|
Update of /cvsroot/aolserver/aolserver/nsd In directory vz-cvs-4.sog:/tmp/cvs-serv5739/nsd Modified Files: Tag: aolserver_v45_r2 init.tcl Log Message: Fix renaming logic in init.tcl Index: init.tcl =================================================================== RCS file: /cvsroot/aolserver/aolserver/nsd/init.tcl,v retrieving revision 1.37.2.1 retrieving revision 1.37.2.2 diff -C2 -d -r1.37.2.1 -r1.37.2.2 *** init.tcl 13 Dec 2011 22:37:07 -0000 1.37.2.1 --- init.tcl 11 May 2012 17:13:37 -0000 1.37.2.2 *************** *** 590,597 **** && $_orig != [::namespace which -command $_cmnd]} { ::append _import [::list namespace import -force $_orig] \n - # renamed after import - ::if {[::namespace tail $_orig] != [::namespace tail $_cmnd]} { - ::append _import [::list rename [::namespace current]::[::namespace tail $_orig] $_cmnd] \n - } } ::append _import [_ns_getensemble $_cmnd] --- 590,593 ---- |