[patch] uzip extfs 9999999 bytes fix



Here's a small patch that fixes a silly bug that would prevent
uzip from listing files that are larger than 9999999 bytes...

The only change is the '+' character (into '*').

Oskar

--- uzip.orig   2003-08-05 17:21:00.000000000 +0200
+++ uzip        2003-08-05 17:21:13.000000000 +0200
@@ -202,7 +202,7 @@
        } 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],



[Date Prev][Date Next]   [Thread Prev][Thread Next]   [Thread Index] [Date Index] [Author Index]