xmltv/grab/fr tv_grab_fr,1.101,1.102

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

Modified Files:
	tv_grab_fr 
Log Message:
Update grabbers using deprecated Date::Manip TZ variable

Index: tv_grab_fr
===================================================================
RCS file: /cvsroot/xmltv/xmltv/grab/fr/tv_grab_fr,v
retrieving revision 1.101
retrieving revision 1.102
diff -C2 -d -r1.101 -r1.102
*** tv_grab_fr	25 Jun 2015 11:34:15 -0000	1.101
--- tv_grab_fr	29 Jun 2015 16:24:28 -0000	1.102
***************
*** 1,4 ****
--- 1,7 ----
  #!/usr/bin/perl -w
  
+ eval 'exec /usr/bin/perl -w -S $0 ${1+"$@"}'
+     if 0; # not running under some shell
+ 
  =head1 NAME
  
***************
*** 136,140 ****
  XMLTV::Memoize::check_argv('XMLTV::Get_nice::get_nice_aux');
  
! use Date::Manip; Date_Init("TZ=UTC");
  use Encode qw(decode_utf8 encode_utf8);
  use Getopt::Long;
--- 139,143 ----
  XMLTV::Memoize::check_argv('XMLTV::Get_nice::get_nice_aux');
  
! use Date::Manip;
  use Encode qw(decode_utf8 encode_utf8);
  use Getopt::Long;
***************
*** 144,147 ****
--- 147,158 ----
  use POSIX qw(strftime);
  
+ BEGIN {
+     if (int(Date::Manip::DateManipVersion) >= 6) {
+         Date::Manip::Date_Init("SetDate=now,UTC");
+     } else {
+         Date::Manip::Date_Init("TZ=UTC");
+     }
+ }
+ 
  #***************************************************************************
  # Main declarations


------------------------------------------------------------------------------
Monitor 25 network devices or servers for free with OpManager!
OpManager is web-based network management software that monitors 
network devices and physical & virtual servers, alerts via email & sms 
for fault. Monitor 25 devices for free with no restriction. Download now
http://ad.doubleclick.net/ddm/clk/292181274;119417398;o