From: Göran Uddeborg <goeran@uddeborg.se>
Date: Sat, 26 Jan 2019 11:24:59 +0000 (+1300)
Subject: We need to assign 0, not undef.
X-Git-Tag: 1.0.1~3
X-Git-Url: http://git.etc.gen.nz/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=ad6322efe01fb4f2a5aa30804f3a1034fca87e82;p=mythtv-status.git

We need to assign 0, not undef.

Switching from using -w to "use warnings" (commit
e4fc08c567584f107db6ed21cde50d305b948737), caused my previous method to disable
warnings when calling MythTV::Program broke.

The warning we're suppressing is:
Argument "Default" isn't numeric in bitwise and (&) at /usr/share/perl5/MythTV/Program.pm line 95.
---

diff --git a/bin/mythtv-status b/bin/mythtv-status
index 901b6b6..e72196e 100755
--- a/bin/mythtv-status
+++ b/bin/mythtv-status
@@ -1047,7 +1047,7 @@ sub process_conflicts {
     {
       # MythTV::Program currently has a slightly broken line with a numeric
       # comparision.
-      local($^W) = undef;
+      local($^W) = 0;
       $show = new MythTV::Program(@$row);
     }
 
@@ -1096,7 +1096,7 @@ sub process_auto_expire {
     {
       # MythTV::Program currently has a slightly broken line with a numeric
       # comparision.
-      local($^W) = undef;
+      local($^W) = 0;
       $show = new MythTV::Program(@$row);
     }