1
1

* extfs/uzip.in: Preserve seconds. Avoid month translation - it

only slows down processing.
Этот коммит содержится в:
Pavel Roskin 2005-07-25 20:24:01 +00:00
родитель 23c29ab03a
Коммит 271a56e3f8
2 изменённых файлов: 5 добавлений и 3 удалений

Просмотреть файл

@ -1,5 +1,8 @@
2005-07-25 Pavel Roskin <proski@gnu.org>
* extfs/uzip.in: Preserve seconds. Avoid month translation - it
only slows down processing.
* extfs/ualz.in: Fix compatibility with unalz 0.51.
2005-07-22 Pavel Roskin <proski@gnu.org>

Просмотреть файл

@ -338,12 +338,11 @@ sub checked_print_file {
# link file encountered.
sub print_file {
my ($perms,$zipver,$platform,$realsize,$format,$cmpsize,$comp,$year,$mon,$day,$hours,$mins,$secs,$filename) = @_;
$mon = (qw/Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec/)[$mon-1];
if ($platform ne 'unx') {
$perms = ($filename =~ /\/$/ ? 'drwxr-xr-x' : '-rw-r--r--');
}
printf "%-10s 1 %-8d %-8d %8d %s %s %s %s:%s %s", $perms, $<,
$(, $realsize, $mon, $day, $year, $hours, $mins, $filename;
printf "%-10s 1 %-8d %-8d %8d %s/%s/%s %s:%s:%s %s", $perms, $<,
$(, $realsize, $mon, $day, $year, $hours, $mins, $secs, $filename;
if ($platform eq 'unx' && $perms =~ /^l/) {
my $linkdest = &get_link_destination($filename);
print " -> $linkdest";