|
Lines 105-111
sub dmy_map {
Link Here
|
| 105 |
my $xsub = $dmy_subs{$dformat}; |
105 |
my $xsub = $dmy_subs{$dformat}; |
| 106 |
$debug and print STDERR "xsub: $xsub \n"; |
106 |
$debug and print STDERR "xsub: $xsub \n"; |
| 107 |
if ( $val =~ /$re/ ) { |
107 |
if ( $val =~ /$re/ ) { |
| 108 |
my $aref = eval {$xsub}; |
108 |
my $aref = eval $xsub; |
| 109 |
if ($dformat eq 'rfc822') { |
109 |
if ($dformat eq 'rfc822') { |
| 110 |
$aref = _abbr_to_numeric($aref, $dformat); |
110 |
$aref = _abbr_to_numeric($aref, $dformat); |
| 111 |
pop(@{$aref}); #pop off tz offset because we are not setup to handle tz conversions just yet |
111 |
pop(@{$aref}); #pop off tz offset because we are not setup to handle tz conversions just yet |
| 112 |
- |
|
|