equal
deleted
inserted
replaced
133 my $gcc441_out = `$gcc441_cmd`; |
133 my $gcc441_out = `$gcc441_cmd`; |
134 $gcc441_ver = "4.4.1" if ($gcc441_out =~ /4.4.1/); |
134 $gcc441_ver = "4.4.1" if ($gcc441_out =~ /4.4.1/); |
135 } |
135 } |
136 push @environment_info, {name=>'GCC4.4.1', version=>$gcc441_ver}; |
136 push @environment_info, {name=>'GCC4.4.1', version=>$gcc441_ver}; |
137 |
137 |
|
138 # Helium |
|
139 my $helium_ver = 'N.A.'; |
|
140 if ($ENV{'HELIUM_HOME'} && -f "$ENV{'HELIUM_HOME'}\\config\\version.txt") |
|
141 { |
|
142 open(VERSION, "$ENV{'HELIUM_HOME'}\\config\\version.txt"); |
|
143 my $line = ''; |
|
144 while ($line = <VERSION>) |
|
145 { |
|
146 $helium_ver = $1 if ($line =~ /^helium\.version=(.*)/); |
|
147 } |
|
148 close(VERSION); |
|
149 } |
|
150 push @environment_info, {name=>'helium', version=>$helium_ver}; |
|
151 |
|
152 # java |
|
153 my $java_ver = 'N.A.'; |
|
154 my $java_out = `java -version`; |
|
155 $java_ver = $1 if ($zip_out =~ /^java version (.*)/m); |
|
156 push @environment_info, {name=>'java', version=>$java_ver}; |
138 |
157 |
139 for my $tool_info (@environment_info) |
158 for my $tool_info (@environment_info) |
140 { |
159 { |
141 print $tool_info->{name} . ": " . $tool_info->{version} . "\n"; |
160 print $tool_info->{name} . ": " . $tool_info->{version} . "\n"; |
142 } |
161 } |