From ad6322efe01fb4f2a5aa30804f3a1034fca87e82 Mon Sep 17 00:00:00 2001 From: =?utf8?q?G=C3=B6ran=20Uddeborg?= Date: Sun, 27 Jan 2019 00:24:59 +1300 Subject: [PATCH] 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. --- bin/mythtv-status | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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); } -- 2.30.2