Ticket #2122: uzip.diff

File uzip.diff, 525 bytes (added by AndrewFilonov, 9 years ago)

Another side of this bug, missed before

  • uzip

    old new  
    262262                        my @match = /$regex_nonzipinfo_line/; 
    263263                        next if ($#match != 10); 
    264264                        my @rmatch = ('', '', 'unknown', $match[0], '', $match[2], $match[1], 
    265                                         $match[6] + ($match[6] < 70 ? 2000 : 1900), $match[4], $match[5], 
     265                                        $match[6] > 100 ? $match[6] : $match[6] + ($match[6] < 70 ? 2000 : 1900) 
     266                                        $match[4], $match[5], 
    266267                                        $match[7], $match[8], "00", $match[10]); 
    267268                        &checked_print_file(@rmatch); 
    268269                }