From a24d5fcd09df48cb8b5e9ec7e164d631cfdf259f Mon Sep 17 00:00:00 2001
From: Tzafrir Cohen <tzafrir@cohens.org.il>
Date: Tue, 2 Sep 2008 23:36:55 +0300
Subject: [PATCH] Remove some debug messages from menuselect.

---
 menuselect/menuselect | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

diff --git a/menuselect/menuselect b/menuselect/menuselect
index 6c3a1bab1..1fe2cfbd5 100755
--- a/menuselect/menuselect
+++ b/menuselect/menuselect
@@ -106,7 +106,7 @@ sub warning($) {
 sub extract_xml_key($) {
 	my $xml_line = shift;
 	if ($xml_line !~ m{^\s*<([a-zA-Z0-9]*)>([^<]*)</\1>}) {
-		print STDERR "parsed empty value from XML line $xml_line\n";
+		warning "parsed empty value from XML line $xml_line";
 		return ('', ''); # warn?
 	}
 	my ($var, $val) = ($1, $2);
@@ -200,7 +200,6 @@ sub parse_menuselect_xml_file($) {
 
 			};
 		} elsif ($tag eq '/member') {
-			print STDERR "Setting module $member->{Module} at $member->{Dir} ($member->{DisplayName})\n";
 			$ModInfo{$member->{Module}} = $member;
 		} elsif ($tag eq '/category') {
 			last;
@@ -217,7 +216,6 @@ sub parse_menuselect_xml_file($) {
 			if (! exists $member->{$key}) {
 				$member->{$key} = [];
 			}
-			print STDERR "Adding key $key, value $val to member $member->{Module}\n";
 			push @{$member->{$key}}, ($val);
 		}
 	}
-- 
2.11.4.GIT