[mythtv-commits] Ticket #2620: perl bindings - use Config in Recording.pm

[MythTV]

#2620: perl bindings - use Config in Recording.pm
----------------------------------------------+-----------------------------
 Reporter:  sphery <mtdean at thirdcontact.com>  |       Owner:  ijr    
     Type:  patch                             |      Status:  new    
 Priority:  minor                             |   Milestone:  unknown
Component:  mythtv                            |     Version:  0.20   
 Severity:  medium                            |  
----------------------------------------------+-----------------------------
 Recoding.pm uses $Config{'byteorder'} when processing !NuppelVideo files;
 however it does not import Config, so each !NuppelVideo file results in:

 {{{
 Use of uninitialized value in numeric eq (==) at
 /usr/lib/perl5/site_perl/5.8.3/MythTV/Recording.pm line 122.
 Use of uninitialized value in numeric eq (==) at
 /usr/lib/perl5/site_perl/5.8.3/MythTV/Recording.pm line 159.
 Use of uninitialized value in numeric eq (==) at
 /usr/lib/perl5/site_perl/5.8.3/MythTV/Recording.pm line 176.
 Use of uninitialized value in numeric eq (==) at
 /usr/lib/perl5/site_perl/5.8.3/MythTV/Recording.pm line 192.
 }}}

 The attached patch adds a "use Config;" to Recording.pm to allow the
 byteorder check to succeed.  My lack of Perl skills make me wonder if this
 is indeed the proper fix (and/or proper location for the fix), but if
 nothing else, identifying the issue should make fixing it easy for a real
 Perl coder.

-- 
Ticket URL: <http://svn.mythtv.org/trac/ticket/2620>
MythTV <http://www.mythtv.org/>
MythTV