fix Use of uninitialized value within @a2 in pattern match (m//) at BuildKitUtils.pm line 273

This commit is contained in:
baiyuan 2013-12-27 01:53:35 -05:00
parent fc7d8ecee5
commit 2ad4b13f78

View File

@ -268,6 +268,8 @@ sub testVersion
for (my $i = 0 ; $i < $len ; $i++)
{
# remove any non-numbers on the end
if(defined($a1[$i])&&defined($a2[$i]))
{
my ($d1) = $a1[$i] =~ /^(\d*)/;
my ($d2) = $a2[$i] =~ /^(\d*)/;
@ -287,6 +289,7 @@ sub testVersion
$num1 .= $d1;
$num2 .= $d2;
}
}
}
# Remove the leading 0s or perl will interpret the numbers as octal