Commit 970a94114be5f816d464457656bc9daed156b990
- Diff rendering mode:
- inline
- side by side
lib/LWP/Authen/Basic.pm
(4 / 1)
|   | |||
| 45 | 45 | return $response; | |
| 46 | 46 | } | |
| 47 | 47 | ||
| 48 | # XXXX check for repeated fail | ||
| 48 | # check that the password has changed | ||
| 49 | my ($olduser, $oldpass) = $ua->credentials($host_port, $realm); | ||
| 50 | return $response if (defined $olduser and defined $oldpass and | ||
| 51 | $user eq $olduser and $pass eq $oldpass); | ||
| 49 | 52 | ||
| 50 | 53 | $ua->credentials($host_port, $realm, $user, $pass); | |
| 51 | 54 | add_path($h, $url->path) unless $proxy; |

