fix 4545,restart xcatd hang due to perl syntax error in low perl version 5.10.x

This commit is contained in:
chudegao 2015-02-04 10:15:44 +08:00
parent 751f918bdd
commit 530e9785ae

View File

@ -1434,7 +1434,7 @@ sub cal_netboot{
return 0;
}
my $condition = shift $condition_array_ref;
my $condition = shift @$condition_array_ref;
if( (exists($netboot_dict_ref->{$condition})) || (exists($netboot_dict_ref->{'*'})) )
{
if(!exists($netboot_dict_ref->{$condition}))