Context Navigation

Ticket #9921: no-date-manip-tz.patch

File no-date-manip-tz.patch, 777 bytes (added by ktdreyer <ktdreyer@…>, 13 years ago)

Everything here works with RHEL6's older version of Date::Manip, except for this one script (in fact, one line in this one script.)

-                      old
+                      new
 use XML::Parser;
 use base qw(XML::SAX::Base);
 use Date::Manip;
-use Date::Manip::TZ;
 use Data::Dumper;
 use Getopt::Std;
 use LWP::Simple;
 …
     my $info;
     $date = ParseDate($date);
+    my $tz = new Date::Manip::TZ;
+    $date = Date_ConvTZ($date, $tz->curr_zone(), "UTC");
+    $date = Date_ConvTZ($date, '', "UTC");
     $date = UnixDate($date, "%O");
     my @dates;