fix Cant use string (enable) as an ARRAY ref while strict refs in use bug

This commit is contained in:
Marko Oldenburg 2020-05-01 18:30:28 +02:00
parent a7060e749f
commit cec6f663f1

View File

@ -831,10 +831,13 @@ sub Zulu2LocalString {
}
sub SetPredefinedStartPoints {
my $hash = shift;
my $a = shift;
my $hash = 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 $payload;