Modified: branches/gsoc11-post-destroot/base/src/port1.0/portcheckdestroot.tcl (81397 => 81398)

--- branches/gsoc11-post-destroot/base/src/port1.0/portcheckdestroot.tcl	2011-07-30 02:31:44 UTC (rev 81397)
+++ branches/gsoc11-post-destroot/base/src/port1.0/portcheckdestroot.tcl	2011-07-30 02:33:58 UTC (rev 81398)
@@ -36,11 +36,6 @@
 }
 
 
-# escape chars in order to be usable as regexp. This function is for internal use.
-proc portcheckdestroot::escape_chars {str} {
-    return [regsub -all {\W} $str {\\&}]
-}
-
 # List all links on a directory recursively. This function is for internal use.
 proc portcheckdestroot::links_list {dir} {
     return [types_list $dir "l"]