changeset 2000 | a55999d4dec9 |
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/components/perl_modules/authen-pam/test/PAM_NO_AUTHTOK_CHECK.pl Sat Jul 12 08:14:58 2014 +0200 @@ -0,0 +1,6 @@ +#!/usr/bin/perl +use Authen::PAM; +ref($pamh = new Authen::PAM($service, $username, \&my_conv_func)); +$pamh->pam_chauthtok(PAM_DISALLOW_NULL_AUTHTOK()); +$pamh->pam_chauthtok(PAM_NO_AUTHTOK_CHECK()); +print "$0 ($^X - $^V) PASSED\n";