Added case for Heimdal error where password is short but not extremely short,
mapping to the one MIT too short error.
$after =~ s/\..*//s;
$after =~ s/\r?\n/ /g;
$after =~ s/\s+See the kpasswd man page.*//s;
- if ($after =~ /^External password quality program failed: it\'s WAY too short/) {
+ if ($after =~ /^External password quality program failed: (it's WAY|it is) too short/) {
$after = 'New password is too short';
} elsif ($after =~ /^External password quality program failed: it is based on a dictionary word/
|| $after =~ /^External password quality program failed: it does not contain enough DIFFERENT characters/) {