--- a/common/tools/envinfo2diamonds.pl	Mon Jul 12 12:00:07 2010 +0100
+++ b/common/tools/envinfo2diamonds.pl	Mon Jul 12 12:02:01 2010 +0100
@@ -54,7 +54,6 @@
 close(INFILE);
 
 # write diamonds file
-@environment_info = reverse(@environment_info);
 
 my $xml_content = <<_EOX;
 <?xml version=\"1.0\" encoding=\"UTF-8\"?>
@@ -67,7 +66,7 @@
 _EOX
 
 my $tools_lines = '';
-for my $tool_info (@environment_info)
+for my $tool_info (reverse(@environment_info))
 {
 	$tools_lines .= "   <tool><name>$tool_info->{name}</name><version>$tool_info->{version}</version></tool>\n";
 }