| Date: | Tue, 4 Jun 2002 00:13:55 -0700 (PDT) |
| From: | rayg <rayg [...] yahoo-inc.com> |
| To: | gbarr [...] pobox.com |
| Subject: | Date::Parse |
the following allows a ':' to separate the hours and minutes in the
timezone offset.
thanks
*** Parse.pm.rayg Tue Jun 4 00:03:54 2002
--- Parse.pm Thu Apr 25 08:27:31 2002
***************
*** 150,156 ****
$zone = tz_offset($1);
return unless defined $zone;
}
! elsif ($dtstr =~ s#\s([a-z]{3,4})?([\-\+]?)-?(\d\d?):?(\d\d)?(00)?\s# #o) {
my $m = defined($4) ? "$2$4" : 0;
my $h = "$2$3";
$zone = defined($1) ? tz_offset($1) : 0;
--- 150,156 ----
$zone = tz_offset($1);
return unless defined $zone;
}
! elsif ($dtstr =~ s#\s([a-z]{3,4})?([\-\+]?)-?(\d\d?)(\d\d)?(00)?\s# #o) {
my $m = defined($4) ? "$2$4" : 0;
my $h = "$2$3";
$zone = defined($1) ? tz_offset($1) : 0;