xmltv/grab/is tv_grab_is,1.27,1.28

Update of /cvsroot/xmltv/xmltv/grab/is
In directory sfp-cvs-1.v30.ch3.sourceforge.com:/tmp/cvs-serv25447

Modified Files:
	tv_grab_is 
Log Message:
(minor) fix Perl warning

Index: tv_grab_is
===================================================================
RCS file: /cvsroot/xmltv/xmltv/grab/is/tv_grab_is,v
retrieving revision 1.27
retrieving revision 1.28
diff -C2 -d -r1.27 -r1.28
*** tv_grab_is	3 Feb 2014 14:24:19 -0000	1.27
--- tv_grab_is	10 Feb 2014 08:36:11 -0000	1.28
***************
*** 434,438 ****
                          # If this is the description, extract director and actors
                          my $director = get_director($node->firstChild->data);
!                         if ($director ne "") {
                              my $dirNode = XML::LibXML::Element->new('director');
                              $dirNode->appendTextNode($director);
--- 434,438 ----
                          # If this is the description, extract director and actors
                          my $director = get_director($node->firstChild->data);
!                         if (defined $director && $director ne "") {
                              my $dirNode = XML::LibXML::Element->new('director');
                              $dirNode->appendTextNode($director);


------------------------------------------------------------------------------
Managing the Performance of Cloud-Based Applications
Take advantage of what the Cloud has to offer - Avoid Common Pitfalls.
Read the Whitepaper.
http://pubads.g.doubleclick.net/gampad/clk?id=121051231&iu=/4140/ostg.clktrk