equal
deleted
inserted
replaced
142 push @environment_info, {name=>'OS Version', version=>$os_ver}; |
142 push @environment_info, {name=>'OS Version', version=>$os_ver}; |
143 |
143 |
144 # Perl |
144 # Perl |
145 my $perl_ver = 'N.A.'; |
145 my $perl_ver = 'N.A.'; |
146 my $perl_out = `perl -v`; |
146 my $perl_out = `perl -v`; |
147 $perl_ver = $1 if ($perl_out =~ /This is perl, v(\S+)/m); |
147 |
|
148 # match: |
|
149 #match This is perl, v5.10.0 built for darwin-thread-multi-2level |
|
150 if($perl_out =~ /This is perl, v(\S+)/m) |
|
151 { |
|
152 $perl_ver = $1; |
|
153 } |
|
154 # match: |
|
155 # This is perl 5, version 12, subversion 1 (v5.12.1) built for MSWin32-x64-multi-thread |
|
156 elsif($perl_out =~ /This is perl.*? \(v(\S+)\)/m) |
|
157 { |
|
158 $perl_ver = $1; |
|
159 } |
|
160 |
148 push @environment_info, {name=>'Perl', version=>$perl_ver}; |
161 push @environment_info, {name=>'Perl', version=>$perl_ver}; |
149 |
162 |
150 # Python |
163 # Python |
151 my $python_ver = 'N.A.'; |
164 my $python_ver = 'N.A.'; |
152 my $python_out = `python -V 2>&1`; |
165 my $python_out = `python -V 2>&1`; |