ports/mc
ports/mc
1
1
Форкнуть 0
Код Релизы 2 Активность

* 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 удалений
Показать статистику Скачать Patch файл Скачать Diff файл Показать все файлы Свернуть все файлы

3
vfs/ChangeLog
Просмотреть файл

@ -1,5 +1,8 @@
2005-07-25 Pavel Roskin <proski@gnu.org> 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. * extfs/ualz.in: Fix compatibility with unalz 0.51.
2005-07-22 Pavel Roskin <proski@gnu.org> 2005-07-22 Pavel Roskin <proski@gnu.org>

5
vfs/extfs/uzip.in
Просмотреть файл

@ -338,12 +338,11 @@ sub checked_print_file {
# link file encountered. # link file encountered.
sub print_file { sub print_file {
my ($perms,$zipver,$platform,$realsize,$format,$cmpsize,$comp,$year,$mon,$day,$hours,$mins,$secs,$filename) = @_; 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') { if ($platform ne 'unx') {
$perms = ($filename =~ /\/$/ ? 'drwxr-xr-x' : '-rw-r--r--'); $perms = ($filename =~ /\/$/ ? 'drwxr-xr-x' : '-rw-r--r--');
} }
printf "%-10s 1 %-8d %-8d %8d %s %s %s %s:%s %s", $perms, $<, printf "%-10s 1 %-8d %-8d %8d %s/%s/%s %s:%s:%s %s", $perms, $<,
$(, $realsize, $mon, $day, $year, $hours, $mins, $filename; $(, $realsize, $mon, $day, $year, $hours, $mins, $secs, $filename;
if ($platform eq 'unx' && $perms =~ /^l/) { if ($platform eq 'unx' && $perms =~ /^l/) {
my $linkdest = &get_link_destination($filename); my $linkdest = &get_link_destination($filename);
print " -> $linkdest"; print " -> $linkdest";