# HG changeset patch
# User Simon Howkins <simonh@symbian.org>
# Date 1249664569 -3600
# Node ID 2ba3614910376c7ef5bf413052828a15819a19c1
# Parent  aee074ee2646a4d20a64e6c1114fe8689a607bbe
Removed commented & obsolete code.

diff -r aee074ee2646 -r 2ba361491037 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");
 		}