--- /usr/share/mc/extfs/uzip.orig 2009-06-19 21:48:06.000000000 +0200 +++ /usr/share/mc/extfs/uzip 2009-06-19 21:48:15.000000000 +0200 @@ -202,10 +202,10 @@ } else { while () { chomp; - my @match = /^ *(\d+) +([^ ]+) +(\d+) +(-?\d+\%) +(\d?\d)-(\d?\d)-(\d\d) (\d?\d):(\d\d) +([0-9a-f]+) +(.*)$/; + my @match = /^ *(\d+) +([^ ]+) +(\d+) +(-?\d+\%) +(\d\d\d\d)-(\d\d)-(\d\d) (\d?\d):(\d\d) +([0-9a-f]+) +(.*)$/; next if ($#match != 10); my @rmatch = ('', '', 'unknown', $match[0], '', $match[2], $match[1], - $match[6] + ($match[6] < 70 ? 2000 : 1900), $match[4], $match[5], + $match[4], $match[5], $match[6], $match[7], $match[8], "00", $match[10]); &checked_print_file(@rmatch); }