From 4b9417189ac2a24131f44801ae38ba1d57a63273 Mon Sep 17 00:00:00 2001 From: zimoch Date: Thu, 27 Sep 2012 08:30:42 +0000 Subject: [PATCH] print what we do --- App/tools/setLinks.tcl | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/App/tools/setLinks.tcl b/App/tools/setLinks.tcl index 596d9d5..a127fc2 100755 --- a/App/tools/setLinks.tcl +++ b/App/tools/setLinks.tcl @@ -21,7 +21,7 @@ if {[lindex [file split $dir] 1] == "prod"} { link -sym $target $link } proc rmlink {link} { - #puts "removing link $link" + puts "removing link $link" file delete $link } } @@ -59,4 +59,4 @@ foreach name $names { } } -# $Header: /cvs/G/DRV/misc/App/tools/setLinks.tcl,v 1.2 2010/08/03 08:42:40 zimoch Exp $ +# $Header: /cvs/G/DRV/misc/App/tools/setLinks.tcl,v 1.3 2012/09/27 08:30:42 zimoch Exp $