-recover litetree.pm from r5304 to r5240; some debug info is added into r5304

git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@5305 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
This commit is contained in:
mxi1 2010-02-26 07:22:36 +00:00
parent fa8c8f75f8
commit f34db2f778

View File

@ -227,9 +227,6 @@ sub subVar {
my $node = shift;
my $type = shift;
my $callback = shift;
#debug#
use Data::Dumper;
#debug#
# parse all the dollar signs...
# if its a directory then it has a / in it, so you have to parse it.
# if its a server, it won't have one so don't worry about it.
@ -237,7 +234,6 @@ sub subVar {
my $fdir = "";
foreach my $p (@arr){
# have to make this geric so $ can be in the midle of the name: asdf$foobar.sitadsf
print Dumper($p);
if($p =~ /\$/){
my $pre;
my $suf;