Select Code to Download

1079:            $CPAN::Frontend->myprint($prompts{proxy_user}) unless
+ $auto_config;
1081:            if ($CPAN::Config->{proxy_user} = prompt("Your proxy 
+user id?",$default)) {
1082:                $CPAN::Frontend->myprint($prompts{proxy_pass}) un
+less $auto_config;
1087:                    $CPAN::Frontend->myprint($prompts{password_wa
+rn}) unless $auto_config;
1089:                $CPAN::Config->{proxy_pass} = prompt_no_strip("Yo
+ur proxy password?");

lib/CPAN/HTTP/Credentials.pm

36:    my $username_prompt = "\nProxy authentication needed!
...
71:    ExtUtils::MakeMaker->import(qw(prompt));
72:    $username = prompt($username_message);
81:    $password = prompt("Password:");