diff options
| author | Britney Fransen <brfransen@gmail.com> | 2013-07-02 15:43:32 (GMT) |
|---|---|---|
| committer | Britney Fransen <brfransen@gmail.com> | 2013-07-02 15:43:32 (GMT) |
| commit | 15b6550904441123df9a7b0608545e61b5f31acb (patch) | |
| tree | 1bfc620a25af292779653d2127746041aa152b65 /abs | |
| parent | 6df05bf800839e95f4b03f67207e7fdba3a4c90b (diff) | |
| download | linhes_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')
| -rwxr-xr-x | abs/core/LinHES-system/PKGBUILD | 4 | ||||
| -rwxr-xr-x | abs/core/LinHES-system/misc_upcoming_recordings.pl | 10 |
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); |