fix 4545,restart xcatd hang due to perl syntax error in low perl version 5.10.x
This commit is contained in:
parent
751f918bdd
commit
530e9785ae
@ -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}))
|
||||
|
Loading…
Reference in New Issue
Block a user