From: Gurusamy Sarathy <gsar@cpan.org>
Date: Wed, 20 Oct 1999 01:00:50 +0000 (+0000)
Subject: fix prototype mismatch (from Hans Mulder <hansm@xs4all.nl>)
X-Git-Tag: accepted/trunk/20130322.191538~35944
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=c9d9b47338546ba1896637d2b0c054dc47bef6ef;p=platform%2Fupstream%2Fperl.git

fix prototype mismatch (from Hans Mulder <hansm@xs4all.nl>)

p4raw-id: //depot/perl@4416
---

diff --git a/lib/CPAN/FirstTime.pm b/lib/CPAN/FirstTime.pm
index 731d3ff..2899849 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;