Can anyone tell me why the heck my if statements aren't working in this subroutine. Everything else seems to work fine.
Please excuse the debug code... sub 'pass_verify_syntax { print "Sub Called\n"; my($p) = @_; length($p) < $pwmin && print "Password too short. Minimum is $pwmin characters.\n"; length($p) > $pwmax && print "Password too long. Maximum is $pwmax characters.\n"; print "$p\n"; if ($p =~ /([^a-zA-Z])\1/) { print "Password cannot contain repeating characters.($1)\n"; } if (substr($p, 0,8)=~ tr/a-zA-Z//c<2){ die "is this working\n"; } foreach (unpack('C*', $p)) { $char = pack("C", $_); #&'log("verifying character '$char'"); if (index($pwchars, $char) == -1) { print "Password contains invalid character: '$char'\n"; } } return 'ok'; } Thanks in advance. Scott -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]