View | Details | Raw Unified | Return to bug 6679
Collapse All | Expand All

(-)a/C4/Dates.pm (-2 / +1 lines)
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
- 

Return to bug 6679