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 |
- |
|
|