diff options
Diffstat (limited to 'abs/core/LinHES-system/misc_upcoming_recordings.pl')
-rwxr-xr-x | abs/core/LinHES-system/misc_upcoming_recordings.pl | 10 |
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); |