envinfo/envinfo.pl
changeset 289 759aa5329d25
parent 288 77dc8956ed66
child 290 802d76cf07f1
equal deleted inserted replaced
288:77dc8956ed66 289:759aa5329d25
   287 			}
   287 			}
   288 			elsif ($tool_info->{version} eq $baselineversion || $baselineversion eq 'N.A.')
   288 			elsif ($tool_info->{version} eq $baselineversion || $baselineversion eq 'N.A.')
   289 			{
   289 			{
   290 				print "[OK]";
   290 				print "[OK]";
   291 			}
   291 			}
   292 			elsif ($tool_info->{version} cmp $baselineversion < 0)
   292 			elsif (($tool_info->{version} cmp $baselineversion) < 0)
   293 			{
   293 			{
   294 				print "[WARNING: less recent than baseline]";
   294 				print "[WARNING: less recent than baseline]";
   295 				$cmp_diffver++;
   295 				$cmp_diffver++;
   296 			}
   296 			}
   297 			elsif ($tool_info->{version} cmp $baselineversion > 0)
   297 			elsif (($tool_info->{version} cmp $baselineversion) > 0)
   298 			{
   298 			{
   299 				print "[WARNING: more recent than baseline]";
   299 				print "[WARNING: more recent than baseline]";
   300 				$cmp_diffver++;
   300 				$cmp_diffver++;
   301 			}
   301 			}
   302 		}
   302 		}