From e9de5f28a35c97600f90a97a777b53e4c15a9544 Mon Sep 17 00:00:00 2001
From: Adam Williamson <awilliam@redhat.com>
Date: Thu, 26 May 2022 14:51:20 -0700
Subject: [PATCH] Avoid uninitialized value warnings in main.pm

If LANGUAGE isn't specified we wind up using undefined in string
eq, which perl warns about. So let's avoid that by falling back
to "".

Signed-off-by: Adam Williamson <awilliam@redhat.com>
---
 main.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/main.pm b/main.pm
index 00387e9e..ece5eb52 100644
--- a/main.pm
+++ b/main.pm
@@ -252,7 +252,7 @@ sub _load_early_postinstall_tests {
         _load_instance("tests/_graphical_input", $instance);
     }
 
-    if (get_var("LANGUAGE") eq "japanese" || get_var("LANGUAGE") eq "arabic") {
+    if (get_var("LANGUAGE", "") eq "japanese" || get_var("LANGUAGE", "") eq "arabic") {
         _load_instance("tests/check_default_fonts", $instance);
     }