xmltv/lib XMLTV.pm.in,1.158,1.159

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

Modified Files:
	XMLTV.pm.in 
Log Message:
try to silence a warning from XML::Writer in the nightly tester

  if ( !ref($newOutput) && 'self' eq $newOutput ) {
leads to
Use of uninitialized value $newOutput in string eq at /usr/share/perl5/XML/Writer.pm line 473.



Index: XMLTV.pm.in
===================================================================
RCS file: /cvsroot/xmltv/xmltv/lib/XMLTV.pm.in,v
retrieving revision 1.158
retrieving revision 1.159
diff -C2 -d -r1.158 -r1.159
*** XMLTV.pm.in	21 Jan 2014 15:13:14 -0000	1.158
--- XMLTV.pm.in	1 Apr 2014 18:44:48 -0000	1.159
***************
*** 2149,2152 ****
--- 2149,2158 ----
      croak 'OUTPUT requires a filehandle, not a filename or anything else'
        if exists $args{OUTPUT} and not ref $args{OUTPUT};
+ 
+     # force OUTPUT explicitly to standard output to avoid warnings about
+     # undefined OUTPUT in XML::Writer where it tests against 'self'
+     if (!exists $args{OUTPUT}) {
+         $args{OUTPUT} = \*STDOUT;
+     }
      my $encoding = delete $args{encoding};
      my $days = delete $args{days};


------------------------------------------------------------------------------