[81398] branches/gsoc11-post-destroot/base/src/port1.0/portcheckdestroot. tcl

[fotanus at macports.org]

Revision: 81398
          http://trac.macports.org/changeset/81398
Author:   fotanus at macports.org
Date:     2011-07-29 19:33:58 -0700 (Fri, 29 Jul 2011)
Log Message:
-----------
removed orphaned functions

Modified Paths:
--------------
    branches/gsoc11-post-destroot/base/src/port1.0/portcheckdestroot.tcl

Modified: branches/gsoc11-post-destroot/base/src/port1.0/portcheckdestroot.tcl
===================================================================
--- 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"]
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.macosforge.org/pipermail/macports-changes/attachments/20110729/8f520752/attachment.html>