From 606c549626d9193223b0f7030d88629d7171f49c Mon Sep 17 00:00:00 2001
From: Patrik Lundin <patrik.lundin@it.su.se>
Date: Fri, 23 Jul 2010 09:51:43 +0200
Subject: [PATCH] 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 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lib/kadm5/check-cracklib.pl b/lib/kadm5/check-cracklib.pl
index 58e2a640c..e2517deb9 100644
--- a/lib/kadm5/check-cracklib.pl
+++ b/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: $_";