xmltv/lib XMLTV.pm.in,1.155,1.156

Update of /cvsroot/xmltv/xmltv/lib
In directory sfp-cvs-1.v30.ch3.sourceforge.com:/tmp/cvs-serv467

Modified Files:
	XMLTV.pm.in 
Log Message:
Fix credits handler to stop writer barfing when actor 'role' is null

Index: XMLTV.pm.in
===================================================================
RCS file: /cvsroot/xmltv/xmltv/lib/XMLTV.pm.in,v
retrieving revision 1.155
retrieving revision 1.156
diff -C2 -d -r1.155 -r1.156
*** XMLTV.pm.in	13 Oct 2013 20:53:14 -0000	1.155
--- XMLTV.pm.in	18 Oct 2013 10:12:56 -0000	1.156
***************
*** 1165,1169 ****
  	    	die if not defined $person;
  		if (ref($person) eq 'ARRAY') {
! 			$w->dataElement($_, @{$person}[0], 'role' => @{$person}[1] ) if $w;
  		} else {
  			$w->dataElement($_, $person) if $w;
--- 1165,1173 ----
  	    	die if not defined $person;
  		if (ref($person) eq 'ARRAY') {
! 			if ( defined @{$person}[1] && @{$person}[1] ne '' ) {
! 				$w->dataElement($_, @{$person}[0], 'role' => @{$person}[1] ) if $w;
! 			} else {
! 				$w->dataElement($_, @{$person}[0]) if $w;
! 			}
  		} else {
  			$w->dataElement($_, $person) if $w;


------------------------------------------------------------------------------
October Webinars: Code for Performance
Free Intel webinars can help you accelerate application performance.
Explore tips for MPI, OpenMP, advanced profiling, and more. Get the most from 
the latest Intel processors and coprocessors. See abstracts and register >
http://pubads.g.doubleclick.net/gampad/clk?id=60135031&iu=/4140/ostg.clktrk