fix Cant use string (enable) as an ARRAY ref while strict refs in use bug
This commit is contained in:
@ -298,8 +298,7 @@ sub Set {
|
|||||||
elsif ( lc $cmd eq 'startpoint' ) {
|
elsif ( lc $cmd eq 'startpoint' ) {
|
||||||
my $err;
|
my $err;
|
||||||
|
|
||||||
print Dumper $aArg;
|
( $err, $payload, $abilities ) = SetPredefinedStartPoints( $hash, $aArg );
|
||||||
# ( $err, $payload, $abilities ) = SetPredefinedStartPoints( $hash, @$aArg );
|
|
||||||
return $err if ( defined($err) );
|
return $err if ( defined($err) );
|
||||||
|
|
||||||
}
|
}
|
||||||
@ -834,13 +833,10 @@ sub Zulu2LocalString {
|
|||||||
}
|
}
|
||||||
|
|
||||||
sub SetPredefinedStartPoints {
|
sub SetPredefinedStartPoints {
|
||||||
my $hash = shift;
|
my $hash = shift;
|
||||||
my $aArg = shift;
|
my $aArg = shift;
|
||||||
|
|
||||||
my $startpoint_state = shift @$aArg;
|
my ($startpoint_state,$startpoint_num,@morestartpoints) = @{$aArg};
|
||||||
my $startpoint_num = shift @$aArg;
|
|
||||||
|
|
||||||
my @morestartpoints = @{$aArg};
|
|
||||||
|
|
||||||
my $name = $hash->{NAME};
|
my $name = $hash->{NAME};
|
||||||
my $payload;
|
my $payload;
|
||||||
|
Reference in New Issue
Block a user