[sisyphus] mc uzip failed

Aleksey Birukov aebirukov на gmail.com
Чт Дек 1 11:15:52 MSK 2016 

Обновился. Попробовал осмыслить вывод отладчика. На сколько я понял pipe не
создаётся в строке 249, но почему не понятно. Если вручную запустить
команду с теми же аргументами -- вывод есть. Посмотрите, пожалуйста.

$ perl -d /usr/lib/mc/extfs.d/uzip list /home/user1/Desktop/ziptest/test.zip

Loading DB routines from perl5db.pl version 1.37
Editor support available.

Enter h or 'h h' for help, or 'man perldebug' for more help.

main::(/usr/lib/mc/extfs.d/uzip:18):
18:     my $app_zip = "/usr/bin/zip";
  DB<1> s
main::(/usr/lib/mc/extfs.d/uzip:20):
20:     my $app_unzip = "/usr/bin/unzip";
  DB<1> s
main::(/usr/lib/mc/extfs.d/uzip:22):
22:     my $op_has_zipinfo = 1;
  DB<1> s
main::(/usr/lib/mc/extfs.d/uzip:25):
25:     my $cmd_list_zi = "$app_unzip -Z -l -T";
  DB<1> s
main::(/usr/lib/mc/extfs.d/uzip:27):
27:     my $cmd_list_nzi = "$app_unzip -qq -v";
  DB<1> s
main::(/usr/lib/mc/extfs.d/uzip:29):
29:     my $cmd_add = "$app_zip -g";
  DB<1> print $ARGV[0]
list
  DB<2> print $ARGV[1]
/home/user/Desktop/ziptest/test.zip
  DB<3> s
main::(/usr/lib/mc/extfs.d/uzip:31):
31:     my $cmd_addlink = "$app_zip -g -y";
  DB<3> s
main::(/usr/lib/mc/extfs.d/uzip:33):
33:     my $cmd_delete = "$app_zip -d";
  DB<3> s
main::(/usr/lib/mc/extfs.d/uzip:35):
35:     my $cmd_extract = "$app_unzip -p";
  DB<3> s
main::(/usr/lib/mc/extfs.d/uzip:39):
39:     my $regex_zipinfo_line =
qr"^(\S{7,10})\s+(\d+\.\d+)\s+(\S+)\s+(\d+)\s+(\S\S)\s+(\d+)\s+(\S{4})\s+(\d{4})(\d\d)(\d\d)\.(\d\d)(\d\d)(\d\d)\s(.*)$";
  DB<3> s
main::(/usr/lib/mc/extfs.d/uzip:44):
44:     my $regex_nonzipinfo_line =
qr"^\s*(\d+)\s+(\S+)\s+(\d+)\s+(-?\d+\%)\s+(\d+)-(\d?\d)-(\d+)\s+(\d?\d):(\d\d)\s+([0-9a-f]+)\s\s(.*)$";
  DB<3> s
main::(/usr/lib/mc/extfs.d/uzip:50):
50:     die "uzip: missing command and/or archive arguments\n" if ($#ARGV <
1);
  DB<3> s
main::(/usr/lib/mc/extfs.d/uzip:53):
53:     my $cmd = shift;
  DB<3> s
main::(/usr/lib/mc/extfs.d/uzip:54):
54:     my %known = ( './' => 1 );
  DB<3> s
main::(/usr/lib/mc/extfs.d/uzip:55):
55:     my %pending = ();
  DB<3> s
main::(/usr/lib/mc/extfs.d/uzip:56):
56:     my $oldpwd = POSIX::getcwd();
  DB<3> s
main::(/usr/lib/mc/extfs.d/uzip:57):
57:     my $archive = shift;
  DB<3> s
main::(/usr/lib/mc/extfs.d/uzip:58):
58:     my $aarchive = absolutize($archive, $oldpwd);
  DB<3> s
main::absolutize(/usr/lib/mc/extfs.d/uzip:422):
422:            my ($file, $pwd) = @_;
  DB<3> s
main::absolutize(/usr/lib/mc/extfs.d/uzip:423):
423:            return "$pwd/$file" if ($file !~ /^\//);
  DB<3> s
main::absolutize(/usr/lib/mc/extfs.d/uzip:424):
424:            return $file;
  DB<3> s
main::(/usr/lib/mc/extfs.d/uzip:59):
59:     my $cmd_list = ($op_has_zipinfo ? $cmd_list_zi : $cmd_list_nzi);
  DB<3> s
main::(/usr/lib/mc/extfs.d/uzip:60):
60:     my ($qarchive, $aqarchive) = map (quotemeta, $archive, $aarchive);
  DB<3> s
main::(/usr/lib/mc/extfs.d/uzip:73):
73:     my $zipfs_realpathname_table = undef;
74:     sub zipfs_realpathname($) {
  DB<3> s
main::(/usr/lib/mc/extfs.d/uzip:106):
106:    if ($cmd eq 'list')    { &mczipfs_list(@ARGV); }
  DB<3> s
main::(/usr/lib/mc/extfs.d/uzip:106):
106:    if ($cmd eq 'list')    { &mczipfs_list(@ARGV); }
  DB<3> s
main::mczipfs_list(/usr/lib/mc/extfs.d/uzip:249):
249:            open (PIPE, "$cmd_list $qarchive |") || &croak("$app_unzip
failed");
  DB<3> print $app_unzip
/usr/bin/unzip
  DB<4> s
main::mczipfs_list(/usr/lib/mc/extfs.d/uzip:250):
250:            if ($op_has_zipinfo) {
  DB<4> s
main::mczipfs_list(/usr/lib/mc/extfs.d/uzip:251):
251:                    while (<PIPE>) {
  DB<4> s
main::mczipfs_list(/usr/lib/mc/extfs.d/uzip:277):
277:            if (!close (PIPE)) {
  DB<4> s
main::mczipfs_list(/usr/lib/mc/extfs.d/uzip:278):
278:                    &croak("$app_unzip failed") if ($! != 0);
  DB<4> s
main::croak(/usr/lib/mc/extfs.d/uzip:366):
366:            my ($command, $desc) = @_;
  DB<4> s
main::croak(/usr/lib/mc/extfs.d/uzip:367):
367:            die "uzip ($cmd): $command - $desc\n" if (defined $desc);
  DB<4> s
main::croak(/usr/lib/mc/extfs.d/uzip:368):
368:            die "uzip ($cmd): $command - $!\n";
  DB<4> s
uzip (list): /usr/bin/unzip failed - Нет дочерних процессов
 at /usr/lib/mc/extfs.d/uzip line 368.
        main::croak('/usr/bin/unzip failed') called at
/usr/lib/mc/extfs.d/uzip line 278
        main::mczipfs_list() called at /usr/lib/mc/extfs.d/uzip line 106
File::Temp::CODE(0x8569450)(/usr/share/perl5/File/Temp.pm:870):
870:        local($., $@, $!, $^E, $?);
  DB<4> q
$ /usr/bin/unzip -Z -l -T \/home\/user1\/Desktop\/ziptest\/test\.zip
Archive:  /home/user1/Desktop/ziptest/test.zip
Zip file size: 171 bytes, number of entries: 1
-rw-r--r--  3.0 unx        5 tx        5 stor 20161127.190621 test.txt
1 file, 5 bytes uncompressed, 5 bytes compressed:  0.0%

$ rpm -qf uzip
mc-4.8.18-alt1

30 ноября 2016 г., 14:58 пользователь Sergey <a_s_y на sama.ru> написал:

> On Friday 25 November 2016, Aleksey Birukov wrote:
>
> > Обновил mc до сизифного, тоже не открывает.
> > mc-4.8.17-alt1
>
> Не думаю, что проблема в mc (или, по крайней мере, в
> mc из репозитория), но в Сизиф сейчас уехал 4.8.18+
>
> --
> С уважением, Сергей.
> _______________________________________________
> Sisyphus mailing list
> Sisyphus на lists.altlinux.org
> https://lists.altlinux.org/mailman/listinfo/sisyphus
>



-- 
Ответьте, пожалуйста, что-нибудь если получили это письмо.

--
С уважением,
Бирюков Алексей
----------- следующая часть -----------
Вложение в формате HTML было удалено...
URL: <http://lists.altlinux.org/pipermail/sisyphus/attachments/20161201/b5c53579/attachment-0001.html>

Подробная информация о списке рассылки Sisyphus