xmltv/lib Summarize.pm,1.4,1.5

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

Modified Files:
	Summarize.pm 
Log Message:
filter: replace "TZ" with "SetDate" for Date::Manip >= 6.00

This avoids the following warning with latest Date::Manip releases:

WARNING: the TZ Date::Manip config variable is deprecated
         and will be removed in March 2016.  Please use
         the SetDate or ForceDate config variables instead.


Index: Summarize.pm
===================================================================
RCS file: /cvsroot/xmltv/xmltv/lib/Summarize.pm,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** Summarize.pm	5 May 2014 16:00:31 -0000	1.4
--- Summarize.pm	8 Jun 2015 17:41:14 -0000	1.5
***************
*** 5,12 ****
  our @EXPORT = ();
  our @EXPORT_OK = qw(summarize);
! use Date::Manip; Date_Init('TZ=UTC');
  use XMLTV;
  use XMLTV::TZ qw(gettz ParseDate_PreservingTZ);
  
  =pod
  
--- 5,20 ----
  our @EXPORT = ();
  our @EXPORT_OK = qw(summarize);
! use Date::Manip;
  use XMLTV;
  use XMLTV::TZ qw(gettz ParseDate_PreservingTZ);
  
+ BEGIN {
+     if (int(Date::Manip::DateManipVersion) >= 6) {
+ 	Date::Manip::Date_Init("SetDate=now,UTC");
+     } else {
+ 	Date::Manip::Date_Init("TZ=UTC");
+     }
+ }
+ 
  =pod
  


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