perl-lib: add flapping timeout to normalize smartphones