===================================================================
RCS file: /cvs/cvsweb/cvsweb.cgi,v
retrieving revision 4.25
retrieving revision 4.26
diff -u -p -r4.25 -r4.26
--- cvsweb/cvsweb.cgi	2019/11/26 11:53:01	4.25
+++ cvsweb/cvsweb.cgi	2019/11/26 12:04:55	4.26
@@ -1,5 +1,5 @@
 #!/usr/bin/perl
-# $Id: cvsweb.cgi,v 4.25 2019/11/26 11:53:01 schwarze Exp $
+# $Id: cvsweb.cgi,v 4.26 2019/11/26 12:04:55 schwarze Exp $
 # $knu: cvsweb.cgi,v 1.299 2010/11/13 16:37:18 simon
 #
 # cvsweb - a CGI interface to CVS trees.
@@ -69,7 +69,7 @@ use vars qw (
   $bylog $byfile $defaultDiffType $logsort $cvstree $cvsroot
   $charset $output_filter
   @command_path %CMD $allow_compress $backicon $diricon $fileicon
-  $fullname $cvstreedefault $logo $defaulttitle $address $binfileicon
+  $fullname $logo $defaulttitle $address $binfileicon
   $long_intro $short_instruction $shortLogLen $show_author
   $tablepadding $hr_breakable $showfunc $hr_ignwhite $hr_ignkeysubst
   $inputTextSize $mime_types $allow_annotate $allow_markup $allow_mailtos
@@ -198,7 +198,7 @@ $config = '/conf/cvsweb/cvsweb.conf';
 @CVSrepositories = @CVSROOT = %CVSROOT = %MIRRORS = %DEFAULTVALUE = %ICONS =
   %MTYPES = %tags = %alltags = %fileinfo = %DIFF_COMMANDS = ();
 
-$cvstreedefault = $logo = $defaulttitle =
+$logo = $defaulttitle =
   $address = $long_intro = $short_instruction = $shortLogLen = $show_author =
   $tablepadding = $hr_breakable = $showfunc = $hr_ignwhite =
   $hr_ignkeysubst = $inputTextSize = $mime_types = $allow_annotate =
@@ -472,7 +472,6 @@ for (my $i = 0; $i < scalar(@CVSrepositories); $i += 2
     next;
   }
   $rootfound ||= 1;
-  $cvstreedefault = $key unless defined($cvstreedefault);
   $CVSROOTdescr{$key} = $descr;
   $CVSROOT{$key} = $root;
   push(@CVSROOT, $key);
@@ -485,20 +484,8 @@ unless ($rootfound) {
 }
 undef $rootfound;
 
-#
-# Default CVS root
-#
-if (!defined($CVSROOT{$cvstreedefault})) {
-  fatal("500 Internal Error",
-        '<code>$cvstreedefault</code> points to a repository (%s) not ' .
-        'defined in <code>@CVSrepositories</code> in your configuration ' .
-        'file (<code>%s</code>).',
-        $cvstreedefault,
-        $config);
-}
+$DEFAULTVALUE{cvsroot} = $CVSrepositories[0];
 
-$DEFAULTVALUE{cvsroot} = $cvstreedefault;
-
 while (my ($key, $defval) = each %DEFAULTVALUE) {
 
   # Replace not given parameters with defaults.
@@ -576,7 +563,7 @@ $logsort = $input{logsort};
 if ($input{cvsroot} && $CVSROOT{$input{cvsroot}}) {
   $cvstree = $input{cvsroot};
 } else {
-  $cvstree = $cvstreedefault;
+  $cvstree = $CVSrepositories[0];
 }
 
 $cvsroot = $CVSROOT{$cvstree};
@@ -1134,7 +1121,7 @@ EOF
       printf(qq{<input type="hidden" name="%s" value="%s" />\n},
              $v, $input{$v} || 0);
     }
-    if ($cvstree ne $cvstreedefault) {
+    if ($cvstree ne $CVSrepositories[0]) {
       print "<input type=\"hidden\" name=\"cvsroot\" value=\"$cvstree\" />\n";
     }
     print <<EOF;