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 901b6b672ff87a001b86dad7a3b976db6b215783..e72196e5fe3021e24de73fd1a7fc82b333a23b91 100755 (executable)
--- 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);
     }