xmltv/lib XMLTV.pm.in,1.164,1.165

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

Modified Files:
	XMLTV.pm.in 
Log Message:
fix error in tv_cat (partial reversion to 1.162)

Index: XMLTV.pm.in
===================================================================
RCS file: /cvsroot/xmltv/xmltv/lib/XMLTV.pm.in,v
retrieving revision 1.164
retrieving revision 1.165
diff -C2 -d -r1.164 -r1.165
*** XMLTV.pm.in	29 Aug 2014 20:21:21 -0000	1.164
--- XMLTV.pm.in	31 Aug 2014 16:28:52 -0000	1.165
***************
*** 548,556 ****
  	my $c = shift;
  	$Data::Dumper::Sortkeys = 1; # ensure consistent order of dumped hash
! 	if (defined $all_credits and Dumper($all_credits) ne Dumper($c)) {
  		warn "different files have different credits, picking one arbitrarily\n";
  		# In fact, we pick the last file in the list since this is the
  		# first to be opened.
  		#
  	}
  	else {
--- 548,558 ----
  	my $c = shift;
  	$Data::Dumper::Sortkeys = 1; # ensure consistent order of dumped hash
! 	if (defined $all_credits) {
! 	    if (Dumper($all_credits) ne Dumper($c)) {
  		warn "different files have different credits, picking one arbitrarily\n";
  		# In fact, we pick the last file in the list since this is the
  		# first to be opened.
  		#
+ 	    }
  	}
  	else {


------------------------------------------------------------------------------
Slashdot TV.  
Video for Nerds.  Stuff that matters.
http://tv.slashdot.org/