Make sure (XML) dependencies are upper-case

Make sure values read from XML files for 'use' or 'depend' are upper-case.

1 files changed, 5 insertions, 0 deletions

diff --git a/menuselect/menuselect b/menuselect/menuselect
index 792bfd5..32ba175 100755
--- a/menuselect/menuselect
+++ b/menuselect/menuselect
@@ -220,6 +220,11 @@ sub parse_menuselect_xml_file($) {
 			if (! exists $member->{$key}) {
 				$member->{$key} = [];
 			}
+			
+			# Make sure dependencies are upper-case.
+			# FIXME: this is not the proper place for such a fix
+			$val = uc($val) if ($key =~ /Depend|Use/);
+
 			# Using "unshift' rather than 'push'.
 			# For a singleton value this makes the action an 
 			# override, as only the first value counts.