perl-Authen-PAM/perl-Authen-PAM-0.16-disable_login_test.patch

31 lines
1004 B
Diff

diff -Nru Authen-PAM-0.16.orig/test.pl Authen-PAM-0.16/test.pl
--- Authen-PAM-0.16.orig/test.pl 2005-09-21 20:08:46.000000000 +0200
+++ Authen-PAM-0.16/test.pl 2009-05-02 16:50:18.000000000 +0200
@@ -120,26 +120,6 @@
# skip(10, 'custom fail delay function is not supported by your PAM library');
# }
- if ($login_name) {
- print
- "---- Now, you may be prompted to enter the password of '$login_name'.\n";
- } else{
- print
- "---- Now, you may be prompted to enter a user name and a password.\n";
- }
-
- $res = pam_authenticate($pamh, 0);
-# $res = pam_chauthtok($pamh);
- {
- my $old_failures = $failures;
- pam_ok(9, $pamh, $res);
- print
- "---- The failure of test 9 could be due to your PAM configuration\n",
- "---- or typing an incorrect password.\n"
- if ($res != PAM_SUCCESS());
- $failures = $old_failures; # Authentication failures don't count
- }
-
# if (HAVE_PAM_FAIL_DELAY()) {
# ok(12, $res == $fd_status);
# } else {