From c9d9b47338546ba1896637d2b0c054dc47bef6ef Mon Sep 17 00:00:00 2001
From: Gurusamy Sarathy <gsar@cpan.org>
Date: Wed, 20 Oct 1999 01:00:50 +0000
Subject: [PATCH] fix prototype mismatch (from Hans Mulder <hansm@xs4all.nl>)

p4raw-id: //depot/perl@4416
---
 lib/CPAN/FirstTime.pm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

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;
-- 
2.7.4