equal
deleted
inserted
replaced
52 } |
52 } |
53 } |
53 } |
54 close(INFILE); |
54 close(INFILE); |
55 |
55 |
56 # write diamonds file |
56 # write diamonds file |
57 @environment_info = reverse(@environment_info); |
|
58 |
57 |
59 my $xml_content = <<_EOX; |
58 my $xml_content = <<_EOX; |
60 <?xml version=\"1.0\" encoding=\"UTF-8\"?> |
59 <?xml version=\"1.0\" encoding=\"UTF-8\"?> |
61 <diamonds-build> |
60 <diamonds-build> |
62 <schema>10</schema> |
61 <schema>10</schema> |
65 </tools> |
64 </tools> |
66 </diamonds-build> |
65 </diamonds-build> |
67 _EOX |
66 _EOX |
68 |
67 |
69 my $tools_lines = ''; |
68 my $tools_lines = ''; |
70 for my $tool_info (@environment_info) |
69 for my $tool_info (reverse(@environment_info)) |
71 { |
70 { |
72 $tools_lines .= " <tool><name>$tool_info->{name}</name><version>$tool_info->{version}</version></tool>\n"; |
71 $tools_lines .= " <tool><name>$tool_info->{name}</name><version>$tool_info->{version}</version></tool>\n"; |
73 } |
72 } |
74 my $bit_tools_lines = ''; |
73 my $bit_tools_lines = ''; |
75 for my $bit_tool_info (@environment_info) |
74 for my $bit_tool_info (@environment_info) |