|
Lines 166-171
sub dt_from_string {
Link Here
|
| 166 |
$regex .= $time_re unless ( $date_format eq 'rfc3339' ); |
166 |
$regex .= $time_re unless ( $date_format eq 'rfc3339' ); |
| 167 |
$fallback_re .= $time_re; |
167 |
$fallback_re .= $time_re; |
| 168 |
|
168 |
|
|
|
169 |
# Ensure we only accept date strings and not other characters. |
| 170 |
$regex = '^' . $regex . '$'; |
| 171 |
$fallback_re = '^' . $fallback_re . '$'; |
| 172 |
|
| 169 |
my %dt_params; |
173 |
my %dt_params; |
| 170 |
my $ampm; |
174 |
my $ampm; |
| 171 |
if ( $date_string =~ $regex ) { |
175 |
if ( $date_string =~ $regex ) { |
| 172 |
- |
|
|