From f9ae8d40895c58a9179028d96755a5f39c6bb04d Mon Sep 17 00:00:00 2001
From: Wolfram Schneider <wosch@FreeBSD.org>
Date: Sat, 25 May 2019 16:56:43 +0000
Subject: [PATCH] perl warnings

---
 en_US.ISO8859-1/htdocs/cgi/man.cgi | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/en_US.ISO8859-1/htdocs/cgi/man.cgi b/en_US.ISO8859-1/htdocs/cgi/man.cgi
index aaa82df8f7..61cad02722 100755
--- a/en_US.ISO8859-1/htdocs/cgi/man.cgi
+++ b/en_US.ISO8859-1/htdocs/cgi/man.cgi
@@ -1844,8 +1844,8 @@ ETX
 
     # pickup a default machine type
     else {
-	exists $arch{$l}->{'default'} ? $arch{$l}->{'default'} : 'default';
-	}
+        #exists $arch{$l}->{'default'} ? $arch{$l}->{'default'} : 'default';
+    }
 
     foreach (@arch) {
         my $selected = $_ eq $a ? ' selected="selected"' : "";