[70545] branches/gsoc10-configfiles/base/src/registry2.0/portimage.tcl

[and.damore at macports.org]

Revision: 70545
          http://trac.macports.org/changeset/70545
Author:   and.damore at macports.org
Date:     2010-08-12 13:47:45 -0700 (Thu, 12 Aug 2010)
Log Message:
-----------
removed debug puts lines

Modified Paths:
--------------
    branches/gsoc10-configfiles/base/src/registry2.0/portimage.tcl

Modified: branches/gsoc10-configfiles/base/src/registry2.0/portimage.tcl
===================================================================
--- branches/gsoc10-configfiles/base/src/registry2.0/portimage.tcl	2010-08-12 20:46:39 UTC (rev 70544)
+++ branches/gsoc10-configfiles/base/src/registry2.0/portimage.tcl	2010-08-12 20:47:45 UTC (rev 70545)
@@ -706,11 +706,7 @@
     variable use_reg2
     set files [list]
 
-    puts "GSOCDBG: \tdeactivate_contents"
     foreach file $imagefiles {
-        puts "GSOCDBG:\tfile:$file:\tmd5sum:[dict get $imagefiles_with_md5 $file]:"
-    }
-    foreach file $imagefiles {
         if { [file exists $file] || (![catch {file type $file}] && [file type $file] == "link") } {
             # Normalize the file path to avoid removing the intermediate
             # symlinks (remove the empty directories instead)
@@ -742,16 +738,13 @@
     set files [lsort -decreasing -unique $files]
 
     # Remove all elements.
-    puts "GSOCDBG:\tremoving all elements"
     if {$use_reg2 && !$rollback} {
         registry::write {
             $port deactivate $imagefiles
             foreach file $files {
                 if { [file isfile $file] && [is_config_file $file]} {
-                        puts "GSOCDBG:\t$file is config file"
                         if {[catch {md5 file "$file"} actual_md5] == 0} {
                             set stored_md5 [dict get $imagefiles_with_md5 $file]
-                            puts "GSOCDBG:\t\tactual_md5:$actual_md5\tstored_md5:$stored_md5"
                             if {[string equal -nocase \
                                     $actual_md5 $stored_md5]} {
                                 puts "GSOCDBG:\t\tnot modified file:$file"
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.macosforge.org/pipermail/macports-changes/attachments/20100812/4c2c4519/attachment.html>