Explicitly read input from STDIN.

Kpasswdd supplies the principal name as an argument to the external
script which makes <> try to read from a file with that name.

Signed-off-by: Love Hornquist Astrand <lha@h5l.org>

lib/kadm5/check-cracklib.pl

@@ -87,7 +87,7 @@ sub badpassword
     exit 0
 }
 
-while (<>) {
+while (<STDIN>) {
     last if /^end$/;
     if (!/^([^:]+): (.+)$/) {
 	die "key value pair not correct: $_";