Lines 129-134
sub dt_from_string {
Link Here
|
129 |
/xms; |
129 |
/xms; |
130 |
|
130 |
|
131 |
# Default to UTC (when 'Z' is passed) for inbound timezone. |
131 |
# Default to UTC (when 'Z' is passed) for inbound timezone. |
|
|
132 |
# The regex above succeeds for both 'z', 'Z' and '+/-' offset. |
133 |
# We set tz as though Z was passed by default and then correct it later if an offset is detected |
134 |
# by the presence fo the <offset> variable. |
132 |
$tz = DateTime::TimeZone->new( name => 'UTC' ); |
135 |
$tz = DateTime::TimeZone->new( name => 'UTC' ); |
133 |
} |
136 |
} |
134 |
elsif ( $date_format eq 'iso' or $date_format eq 'sql' ) { |
137 |
elsif ( $date_format eq 'iso' or $date_format eq 'sql' ) { |
135 |
- |
|
|