Minor updates to allow running with the proposed settings for Perl 7.
authorAndrew Ruthven <andrew@etc.gen.nz>
Sat, 26 Dec 2020 06:47:46 +0000 (19:47 +1300)
committerAndrew Ruthven <andrew@etc.gen.nz>
Sat, 26 Dec 2020 06:47:46 +0000 (19:47 +1300)
ChangeLog
bin/mythtv-status

index 79c3d79..0ca9c32 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,6 @@
+2020-12-26  Andrew Ruthven
+  Minor updates to allow running with the proposed settings for Perl 7.
+
 2020-12-06  Andrew Ruthven
   Minor update to systemd service file.
 
index 1031c9c..411edc2 100755 (executable)
@@ -199,6 +199,11 @@ if ($c->{'highlight'} > 0) {
 # Is a warning present?
 my $warn_present = 0;
 
+# Work out today/tomorrow.
+our $today    = substr(ParseDate('today'), 0, 8);
+our $tomorrow = substr(ParseDate('tomorrow'), 0, 8);
+
+
 # Allow setting some defaults for the output blocks.
 my %defaults = (
   'schedule' => {
@@ -713,12 +718,6 @@ my @blocks = (
   },
 );
 
-###
-### Set some useful variables
-###
-our $today    = substr(ParseDate('today'), 0, 8);
-our $tomorrow = substr(ParseDate('tomorrow'), 0, 8);
-
 if ($c->{'date'}) {
   $today    = substr(ParseDate($c->{'date'}), 0, 8);
   $tomorrow = substr(DateCalc($c->{'date'}, ParseDateDelta('1 day')), 0, 8);
@@ -747,6 +746,7 @@ my ($xml, $charset, $myth);
 my %version;
 
 my $exit_value = 0;
+my @oneliners;
 my $title =  "MythTV status for $c->{'host'}";
 my $output = "$title\n";
 $output .= '=' x length($title) . "\n";
@@ -809,7 +809,7 @@ if (scalar(@oneliners) > 0) {
 
   # Find the longest header
   my $length = 0;
-  for $line (@oneliners) {
+  for my $line (@oneliners) {
     if (length($line->[0]) > $length) {
       $length = length($line->[0]);
     }
@@ -820,7 +820,7 @@ if (scalar(@oneliners) > 0) {
   # oneliners block as a paragrap and wraps it.  If it sees "bullets"
   # it believes it is a bulleted list and leaves it alone.
   my $oneliners = "";
-  for $line (@oneliners) {
+  for my $line (@oneliners) {
     $oneliners .= ($c->{'oneliner_bullets'} ? '* ' : '' )
       . "$line->[0]"
       . ('.' x ($length - length($line->[0]))) . ": $line->[1]\n";
@@ -945,7 +945,7 @@ sub load_perl_api {
 
     # Surpress warnings from DBI.  I tried unsetting $^W but that is ignored.
     local($SIG{__WARN__}) = sub { if ($verbose) { print shift } };
-    eval { $myth = new MythTV() };
+    eval { $myth = MythTV->new() };
 
     if ($@) {
       if ($verbose) {
@@ -1048,7 +1048,7 @@ sub process_conflicts {
       # MythTV::Program currently has a slightly broken line with a numeric
       # comparision.
       local($^W) = 0;
-      $show = new MythTV::Program(@$row);
+      $show = MythTV::Program->new(@$row);
     }
 
     if ($show->{'recstatus'} == $recstatus_conflict) {
@@ -1097,7 +1097,7 @@ sub process_auto_expire {
       # MythTV::Program currently has a slightly broken line with a numeric
       # comparision.
       local($^W) = 0;
-      $show = new MythTV::Program(@$row);
+      $show = MythTV::Program->new(@$row);
     }
 
     # Who cares about LiveTV recordings?
@@ -1135,7 +1135,7 @@ sub process_iso_date {
   $options->{'time'} //= 1;
 
   # 2012-10-17T23:50:08Z
-  my $d = new Date::Manip::Date;
+  my $d = Date::Manip::Date->new();
   $d->parse($date);
 
   # Work out our local timezone. The Date::Manip::Date
@@ -1306,7 +1306,7 @@ sub xml_fetch {
   my ($url) = @_;
 
   $| = 1;
-  my $pid = pipe_from_fork('CHILD');
+  my $pid = pipe_from_fork(*CHILD);
   if ($pid) {
     # parent
     my $content_type;
@@ -1373,7 +1373,7 @@ sub xml_fetch {
 }
 
 # simulate open(FOO, "-|")
-sub pipe_from_fork ($) {
+sub pipe_from_fork {
   my $parent = shift;
 
   $SIG{CHLD} = 'IGNORE';