fix Cant use string (enable) as an ARRAY ref while strict refs in use bug
This commit is contained in:
parent
a7060e749f
commit
cec6f663f1
@ -831,10 +831,13 @@ sub Zulu2LocalString {
|
|||||||
}
|
}
|
||||||
|
|
||||||
sub SetPredefinedStartPoints {
|
sub SetPredefinedStartPoints {
|
||||||
my $hash = shift;
|
my $hash = shift;
|
||||||
my $a = shift;
|
my $aArg = shift;
|
||||||
|
|
||||||
my ( $startpoint_state, $startpoint_num, @morestartpoints ) = @$a;
|
my $startpoint_state = shift @$aArg;
|
||||||
|
my $startpoint_num = shift @$aArg;
|
||||||
|
|
||||||
|
my @morestartpoints = @{$aArg};
|
||||||
|
|
||||||
my $name = $hash->{NAME};
|
my $name = $hash->{NAME};
|
||||||
my $payload;
|
my $payload;
|
||||||
|
Loading…
x
Reference in New Issue
Block a user