1 files changed, 8 insertions, 2 deletions
diff --git a/abs/core/LinHES-system/misc_upcoming_recordings.pl b/abs/core/LinHES-system/misc_upcoming_recordings.pl
index 377c2dc..26ec1b4 100755
--- a/abs/core/LinHES-system/misc_upcoming_recordings.pl
+++ b/abs/core/LinHES-system/misc_upcoming_recordings.pl
@@ -305,7 +305,10 @@ EOF
     sub status_print {
         my $count = shift;
         my $text = $show->format_name($status_text_format, ' ', ' ', 1, 0 ,1);
-        $text =~ s/%rs/$MythTV::RecStatus_Types{$show->{'recstatus'}}/g;
+        {
+        no warnings 'uninitialized';
+	$text =~ s/%rs/$MythTV::RecStatus_Types{$show->{'recstatus'}}/g;
+	}
         my $value = $show->format_name($status_value_format, ' ', ' ',
                                        1, 0 ,1);
         $value =~ s/%rs/$MythTV::RecStatus_Types{$show->{'recstatus'}}/g;
@@ -320,7 +323,10 @@ EOF
     sub text_print {
         my $count = shift;
         my $text = $show->format_name($text_format, ' ', ' ', 1, 0 ,1);
-        $text =~ s/%rs/$MythTV::RecStatus_Types{$show->{'recstatus'}}/g;
+        {
+        no warnings 'uninitialized';
+	$text =~ s/%rs/$MythTV::RecStatus_Types{$show->{'recstatus'}}/g;
+	}
         $text =~ s/\\r/\r/g;
         $text =~ s/\\n/\n/g;
         print("$heading") if ($count == 0);