diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1999-10-20 01:00:50 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1999-10-20 01:00:50 +0000 |
| commit | c9d9b47338546ba1896637d2b0c054dc47bef6ef (patch) | |
| tree | 08c266d4eb5a318265d2017c97c99145d78cd738 /lib/CPAN | |
| parent | 21f5b33c2ff83250a8b108970fbdc5a1d14c7523 (diff) | |
| download | perl-c9d9b47338546ba1896637d2b0c054dc47bef6ef.tar.gz | |
fix prototype mismatch (from Hans Mulder <hansm@xs4all.nl>)
p4raw-id: //depot/perl@4416
Diffstat (limited to 'lib/CPAN')
| -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; |