diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 1999-10-21 10:31:41 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 1999-10-21 10:31:41 +0000 |
| commit | f43524ab115fb9b12f07a597c7920f79666be222 (patch) | |
| tree | 4e7ef7c45e04f07bca7f9b2586f34985f8e84ed9 /lib | |
| parent | fa2879fb09afc65bc215b661aecf4925a1b5233e (diff) | |
| parent | 5d4fa709c52c313242d8c99c393f00bdcd687712 (diff) | |
| download | perl-f43524ab115fb9b12f07a597c7920f79666be222.tar.gz | |
Integrate with Sarathy.
p4raw-id: //depot/cfgperl@4419
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/CPAN/FirstTime.pm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lib/CPAN/FirstTime.pm b/lib/CPAN/FirstTime.pm index 731d3ff2e4..289984956c 100644 --- a/lib/CPAN/FirstTime.pm +++ b/lib/CPAN/FirstTime.pm @@ -78,7 +78,8 @@ dialog anytime later by typing 'o conf init' at the cpan prompt.) } else { $fastread = 1; $CPAN::Config->{urllist} ||= []; - *prompt = sub { + # prototype should match that of &MakeMaker::prompt + *prompt = sub ($;$) { my($q,$a) = @_; my($ret) = defined $a ? $a : ""; printf qq{%s [%s]\n\n}, $q, $ret; |