components/perl/Authen-PAM/patches/03-test-interactive.patch

   1 Remove interactive test
   2
   3 --- Authen-PAM-0.16/test.pl.orig
   4 +++ Authen-PAM-0.16/test.pl
   5 @@ -120,26 +120,6 @@
   6  #    skip(10, 'custom fail delay function is not supported by your PAM library');
   7  #  }
   8
   9 -   if ($login_name) {
  10 -     print
  11 -       "---- Now, you may be prompted to enter the password of '$login_name'.\n";
  12 -   } else{
  13 -     print
  14 -       "---- Now, you may be prompted to enter a user name and a password.\n";
  15 -   }
  16 -
  17 -  $res = pam_authenticate($pamh, 0);
  18 -#  $res = pam_chauthtok($pamh);
  19 -  {
  20 -    my $old_failures = $failures;
  21 -    pam_ok(9, $pamh, $res);
  22 -    print
  23 -      "---- The failure of test 9 could be due to your PAM configuration\n",
  24 -       "---- or typing an incorrect password.\n"
  25 -      if ($res != PAM_SUCCESS());
  26 -    $failures = $old_failures; # Authentication failures don't count
  27 -  }
  28 -
  29  #  if (HAVE_PAM_FAIL_DELAY()) {
  30  #    ok(12, $res == $fd_status);
  31  #  } else {