Removed commented & obsolete code.
authorSimon Howkins <simonh@symbian.org>
Fri, 07 Aug 2009 18:02:49 +0100
changeset 341 2ba361491037
parent 340 aee074ee2646
child 342 626d3847cf2a
Removed commented & obsolete code.
common/tools/csvToSysDef.pl
--- a/common/tools/csvToSysDef.pl	Fri Aug 07 14:33:52 2009 +0100
+++ b/common/tools/csvToSysDef.pl	Fri Aug 07 18:02:49 2009 +0100
@@ -6,7 +6,6 @@
 use lib "$FindBin::Bin/lib";
 
 use XML::Parser;
-use Data::Dumper;
 use Text::CSV;
 
 my $sourcesCSV = shift or die "First arg must be source csv file";
@@ -78,8 +77,6 @@
 	}
 }
 
-#print Data::Dumper->Dump([$outTree->[0]], ["tree"]);
-
 # Output total tree
 print "<?xml version=\"1.0\" encoding=\"UTF-8\"?>\n";
 printTree($outTree->[0]);
@@ -106,14 +103,12 @@
 		if ($extraChildTag =~ m{^(SystemDefinition|systemModel)$})
 		{
 			# Should be merged if there's already one there
-#			warn "Always merge $extraChildTag";
 			# Look for a namesake in the base
 			$mergeIt = matchTag($baseTree->{Kids}, $extraChild, undef);
 		}
 		elsif ($extraChildTag =~ m{layer|block|package|collection|component})
 		{
 			# Should be merged if there is another tag with the same "name" attribute
-#			warn "Sometimes merge $extraChildTag";
 			# Look for a namesake in the base
 			$mergeIt = matchTag($baseTree->{Kids}, $extraChild, "name");
 		}