This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Default to accepting a hinted $randfunc even when $csym
authorJarkko Hietaniemi <jhi@iki.fi>
Tue, 1 Dec 1998 10:51:37 +0000 (10:51 +0000)
committerJarkko Hietaniemi <jhi@iki.fi>
Tue, 1 Dec 1998 10:51:37 +0000 (10:51 +0000)
does not find it.  (the previous defaylt behaviour was not
to accept).

p4raw-id: //depot/cfgperl@2427

Configure

index db88d84..94fe25b 100755 (executable)
--- a/Configure
+++ b/Configure
@@ -10510,8 +10510,8 @@ while $test "$cont"; do
        if set $ans val -f; eval $csym; $val; then
                cont=''
        else
-               dflt=n
-               rp="Function $ans does not exist. Use that name anyway?"
+                dflt=y
+                rp="I cannot find function $ans.  Use that name anyway?"
                . ./myread
                dflt=rand
                case "$ans" in