Skip Menu |
 

This queue is for tickets about the TimeDate CPAN distribution.

Report information
The Basics
Id: 708
Status: resolved
Priority: 0/
Queue: TimeDate

People
Owner: GBARR [...] CPAN.ORG
Requestors: rayg [...] yahoo-inc.com
Cc:
AdminCc:

Bug Information
Severity: (no value)
Broken in: (no value)
Fixed in: (no value)



Date: Tue, 4 Jun 2002 00:13:55 -0700 (PDT)
From: rayg <rayg [...] yahoo-inc.com>
To: gbarr [...] pobox.com
Subject: Date::Parse
Download (untitled) / with headers
text/plain 753b
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;
Date: Tue, 4 Jun 2002 09:32:47 +0100
From: Graham Barr <gbarr [...] pobox.com>
To: rayg via RT <bug-TimeDate [...] rt.cpan.org>
Subject: Re: [cpan #708] Date::Parse
Download (untitled) / with headers
text/plain 1.1k
Do you have some example dates. I cannot say I have seen dates with a : in the zone offset. Graham. On Tue, Jun 04, 2002 at 04:28:06AM -0400, rayg via RT wrote: Show quoted text
> > > This message about TimeDate was sent to you by rayg@yahoo-inc.com via rt.cpan.org > > Full context and any attached attachments can be found at: > <URL: https://rt.cpan.org/Ticket/Display.html?id=708 > > > 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; > > >


This service is sponsored and maintained by Best Practical Solutions and runs on Perl.org infrastructure.

Please report any issues with rt.cpan.org to rt-cpan-admin@bestpractical.com.