xmltv/filter tv_extractinfo_en, 1.68, 1.69 tv_grep.in, 1.39, 1.40 tv_remove_some_overlapping, 1.5, 1.6 tv_sort, 1.33, 1.34 tv_to_potatoe, 1.1, 1.2 tv_to_text, 1.7, 1.8

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

Modified Files:
	tv_extractinfo_en tv_grep.in tv_remove_some_overlapping 
	tv_sort tv_to_potatoe tv_to_text 
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: tv_to_potatoe
===================================================================
RCS file: /cvsroot/xmltv/xmltv/filter/tv_to_potatoe,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** tv_to_potatoe	14 Mar 2005 20:16:04 -0000	1.1
--- tv_to_potatoe	8 Jun 2015 17:41:14 -0000	1.2
***************
*** 49,53 ****
  use XMLTV::Version '$Id$ ';
  use IO::File;
! use Date::Manip; Date_Init('TZ=UTC');
  use Getopt::Long;
  
--- 49,53 ----
  use XMLTV::Version '$Id$ ';
  use IO::File;
! use Date::Manip;
  use Getopt::Long;
  
***************
*** 55,58 ****
--- 55,66 ----
  sub get_best_name( $$ );
  
+ BEGIN {
+     if (int(Date::Manip::DateManipVersion) >= 6) {
+ 	Date::Manip::Date_Init("SetDate=now,UTC");
+     } else {
+ 	Date::Manip::Date_Init("TZ=UTC");
+     }
+ }
+ 
  # Use Log::TraceMessages if installed.
  BEGIN {

Index: tv_grep.in
===================================================================
RCS file: /cvsroot/xmltv/xmltv/filter/tv_grep.in,v
retrieving revision 1.39
retrieving revision 1.40
diff -C2 -d -r1.39 -r1.40
*** tv_grep.in	23 Apr 2014 14:45:33 -0000	1.39
--- tv_grep.in	8 Jun 2015 17:41:14 -0000	1.40
***************
*** 517,521 ****
  #
  t 'setting Date::Manip timezone to UTC';
! Date_Init('TZ=UTC');
  
  @filenames = ('-') if not @filenames;
--- 517,525 ----
  #
  t 'setting Date::Manip timezone to UTC';
! if (int(Date::Manip::DateManipVersion) >= 6) {
!     Date_Init("SetDate=now,UTC");
! } else {
!     Date_Init("TZ=UTC");
! }
  
  @filenames = ('-') if not @filenames;

Index: tv_to_text
===================================================================
RCS file: /cvsroot/xmltv/xmltv/filter/tv_to_text,v
retrieving revision 1.7
retrieving revision 1.8
diff -C2 -d -r1.7 -r1.8
*** tv_to_text	25 May 2014 13:36:32 -0000	1.7
--- tv_to_text	8 Jun 2015 17:41:14 -0000	1.8
***************
*** 34,41 ****
  use XMLTV::Version '$Id$ ';
  use IO::File;
! use Date::Manip; Date_Init('TZ=UTC');
  use POSIX 'tmpnam';
  use Getopt::Long;
  
  # Use Log::TraceMessages if installed.
  BEGIN {
--- 34,49 ----
  use XMLTV::Version '$Id$ ';
  use IO::File;
! use Date::Manip;
  use POSIX 'tmpnam';
  use Getopt::Long;
  
+ BEGIN {
+     if (int(Date::Manip::DateManipVersion) >= 6) {
+ 	Date::Manip::Date_Init("SetDate=now,UTC");
+     } else {
+ 	Date::Manip::Date_Init("TZ=UTC");
+     }
+ }
+ 
  # Use Log::TraceMessages if installed.
  BEGIN {

Index: tv_remove_some_overlapping
===================================================================
RCS file: /cvsroot/xmltv/xmltv/filter/tv_remove_some_overlapping,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -d -r1.5 -r1.6
*** tv_remove_some_overlapping	1 Jan 2004 12:31:02 -0000	1.5
--- tv_remove_some_overlapping	8 Jun 2015 17:41:14 -0000	1.6
***************
*** 47,51 ****
  use XMLTV::Date;
  use Getopt::Long;
! use Date::Manip; Date_Init('TZ=UTC');
  
  # Use Log::TraceMessages if installed.
--- 47,59 ----
  use XMLTV::Date;
  use Getopt::Long;
! use Date::Manip;
! 
! BEGIN {
!     if (int(Date::Manip::DateManipVersion) >= 6) {
! 	Date::Manip::Date_Init("SetDate=now,UTC");
!     } else {
! 	Date::Manip::Date_Init("TZ=UTC");
!     }
! }
  
  # Use Log::TraceMessages if installed.

Index: tv_extractinfo_en
===================================================================
RCS file: /cvsroot/xmltv/xmltv/filter/tv_extractinfo_en,v
retrieving revision 1.68
retrieving revision 1.69
diff -C2 -d -r1.68 -r1.69
*** tv_extractinfo_en	7 May 2011 00:21:25 -0000	1.68
--- tv_extractinfo_en	8 Jun 2015 17:41:14 -0000	1.69
***************
*** 63,70 ****
  use XMLTV::Version '$Id$ ';
  use XMLTV::Date;
! use Date::Manip; Date_Init('TZ=UTC');
  use Carp;
  use Getopt::Long;
  
  # Use Log::TraceMessages if installed.
  BEGIN {
--- 63,78 ----
  use XMLTV::Version '$Id$ ';
  use XMLTV::Date;
! use Date::Manip;
  use Carp;
  use Getopt::Long;
  
+ BEGIN {
+     if (int(Date::Manip::DateManipVersion) >= 6) {
+ 	Date::Manip::Date_Init("SetDate=now,UTC");
+     } else {
+ 	Date::Manip::Date_Init("TZ=UTC");
+     }
+ }
+ 
  # Use Log::TraceMessages if installed.
  BEGIN {

Index: tv_sort
===================================================================
RCS file: /cvsroot/xmltv/xmltv/filter/tv_sort,v
retrieving revision 1.33
retrieving revision 1.34
diff -C2 -d -r1.33 -r1.34
*** tv_sort	13 Jun 2014 16:11:17 -0000	1.33
--- tv_sort	8 Jun 2015 17:41:14 -0000	1.34
***************
*** 61,65 ****
  use XMLTV::Version '$Id$ ';
  use XMLTV::Date;
! use Date::Manip; Date_Init('TZ=UTC');
  use Getopt::Long;
  
--- 61,65 ----
  use XMLTV::Version '$Id$ ';
  use XMLTV::Date;
! use Date::Manip;
  use Getopt::Long;
  
***************
*** 69,72 ****
--- 69,80 ----
  use Storable qw(freeze); $Storable::canonical = 1;
  
+ BEGIN {
+     if (int(Date::Manip::DateManipVersion) >= 6) {
+ 	Date::Manip::Date_Init("SetDate=now,UTC");
+     } else {
+ 	Date::Manip::Date_Init("TZ=UTC");
+     }
+ }
+ 
  # Use Log::TraceMessages if installed.
  BEGIN {


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