uzip.in (mczipfs_list): Add support for negative

compression ratio in archive listing.
This commit is contained in:
Andrew V. Samoilov 2004-09-02 00:16:33 +00:00
parent ce4e912cbf
commit 64b5b8b9ee
1 changed files with 1 additions and 1 deletions

View File

@ -202,7 +202,7 @@ sub mczipfs_list {
} else {
while (<PIPE>) {
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) +([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],