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