Ticket #4208: MythTV.pm.constants.patch

MythTV.pm

@@ -7 +7 @@
 # @author    $Author: xris $
 #
 
+package MythTV;
+
 # Version
     $VERSION = '.20';
 
@@ -16 +18 @@
     use MythTV::Channel;
 
 # Define some constants
-    use constant {
+    use constant ( {
                  # Constants for the recording types
                   rectype_once       =>  1,
                   rectype_daily      =>  2,
@@ -34 +36 @@
                   searchtype_keyword => 3,
                   searchtype_people  => 4,
                   searchtype_manual  => 5,
-                 };
-
-package MythTV;
+    } );
 
     use IO::Socket;
     use Sys::Hostname;

MythTV/Program.pm

@@ -98 +98 @@
         $self->{'is_editing'}   = ($self->{'progflags'} & 0x08) ? 1 : 0;    # FL_EDITING   = 0x08
         $self->{'bookmark'}     = ($self->{'progflags'} & 0x10) ? 1 : 0;    # FL_BOOKMARK  = 0x10
     # And some other calculated fields
-        $self->{'will_record'} = ($self->{'rectype'} && $self->{'rectype'} != rectype_dontrec) ? 1 : 0;
+        $self->{'will_record'} = ($self->{'rectype'} && $self->{'rectype'} != MythTV::rectype_dontrec()) ? 1 : 0;
 
     # Defaults
         $self->{'title'}       = 'Untitled'       unless ($self->{'title'} =~ /\S/);