3650 Switch Stack is not working

To get a 3650 Stack working you have to replace the line…

my $id = ( $$result{$key} * 1000 ) + 1;

… with …

my @key_split = split(‘.’, $key);
my $id = pop @key_split;

3750 will work with this change as well.