summaryrefslogtreecommitdiffstats
path: root/abs/core/LinHES-system
diff options
context:
space:
mode:
authorBritney Fransen <brfransen@gmail.com>2013-07-02 15:43:32 (GMT)
committerBritney Fransen <brfransen@gmail.com>2013-07-02 15:43:32 (GMT)
commit15b6550904441123df9a7b0608545e61b5f31acb (patch)
tree1bfc620a25af292779653d2127746041aa152b65 /abs/core/LinHES-system
parent6df05bf800839e95f4b03f67207e7fdba3a4c90b (diff)
downloadlinhes_pkgbuild-15b6550904441123df9a7b0608545e61b5f31acb.zip
linhes_pkgbuild-15b6550904441123df9a7b0608545e61b5f31acb.tar.gz
linhes_pkgbuild-15b6550904441123df9a7b0608545e61b5f31acb.tar.bz2
LinHES-system: misc_upcoming_recordings.pl: suppress a warning.
Diffstat (limited to 'abs/core/LinHES-system')
-rwxr-xr-xabs/core/LinHES-system/PKGBUILD4
-rwxr-xr-xabs/core/LinHES-system/misc_upcoming_recordings.pl10
2 files changed, 10 insertions, 4 deletions
diff --git a/abs/core/LinHES-system/PKGBUILD b/abs/core/LinHES-system/PKGBUILD
index fd167c1..8588f3a 100755
--- a/abs/core/LinHES-system/PKGBUILD
+++ b/abs/core/LinHES-system/PKGBUILD
@@ -1,6 +1,6 @@
pkgname=LinHES-system
pkgver=8.0
-pkgrel=2
+pkgrel=3
arch=('i686' 'x86_64')
MVDIR=$startdir/pkg/usr/LH
BINDIR=$startdir/pkg/usr/bin
@@ -116,7 +116,7 @@ md5sums=('8fc4b7c1ddf8f3c4d2266ce55086b4d4'
'06a628469051237943b7c874f2e29b8a'
'54ebcc024db2e0ebe8121305d8926767'
'45f46d1f9193c8dde18e56369ec29a1e'
- 'a8edbe7bc37e9932e8749d9f5f89c16f'
+ '145b1da6ce501b3ce38ea415a576bf2d'
'116b0f62ed4e8dd6e437930deeb6e49e'
'17f678d37187be0f12d67f64e40429c6'
'bacc813b48bafcc6fe906e5969930501'
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);