<div dir="ltr">Обновился. Попробовал осмыслить вывод отладчика. На сколько я понял pipe не создаётся в строке 249, но почему не понятно. Если вручную запустить команду с теми же аргументами -- вывод есть. Посмотрите, пожалуйста.<br><div><br>$ perl -d /usr/lib/mc/extfs.d/uzip list /home/user1/Desktop/ziptest/test.zip<br><br>Loading DB routines from <a href="http://perl5db.pl">perl5db.pl</a> version 1.37<br>Editor support available.<br><br>Enter h or 'h h' for help, or 'man perldebug' for more help.<br><br>main::(/usr/lib/mc/extfs.d/uzip:18):<br>18: my $app_zip = "/usr/bin/zip";<br> DB<1> s<br>main::(/usr/lib/mc/extfs.d/uzip:20):<br>20: my $app_unzip = "/usr/bin/unzip";<br> DB<1> s<br>main::(/usr/lib/mc/extfs.d/uzip:22):<br>22: my $op_has_zipinfo = 1;<br> DB<1> s<br>main::(/usr/lib/mc/extfs.d/uzip:25):<br>25: my $cmd_list_zi = "$app_unzip -Z -l -T";<br> DB<1> s<br>main::(/usr/lib/mc/extfs.d/uzip:27):<br>27: my $cmd_list_nzi = "$app_unzip -qq -v";<br> DB<1> s<br>main::(/usr/lib/mc/extfs.d/uzip:29):<br>29: my $cmd_add = "$app_zip -g";<br> DB<1> print $ARGV[0]<br>list<br> DB<2> print $ARGV[1]<br>/home/user/Desktop/ziptest/test.zip<br> DB<3> s<br>main::(/usr/lib/mc/extfs.d/uzip:31):<br>31: my $cmd_addlink = "$app_zip -g -y";<br> DB<3> s<br>main::(/usr/lib/mc/extfs.d/uzip:33):<br>33: my $cmd_delete = "$app_zip -d";<br> DB<3> s<br>main::(/usr/lib/mc/extfs.d/uzip:35):<br>35: my $cmd_extract = "$app_unzip -p";<br> DB<3> s<br>main::(/usr/lib/mc/extfs.d/uzip:39):<br>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(.*)$";<br> DB<3> s<br>main::(/usr/lib/mc/extfs.d/uzip:44):<br>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(.*)$";<br> DB<3> s<br>main::(/usr/lib/mc/extfs.d/uzip:50):<br>50: die "uzip: missing command and/or archive arguments\n" if ($#ARGV < 1);<br> DB<3> s<br>main::(/usr/lib/mc/extfs.d/uzip:53):<br>53: my $cmd = shift;<br> DB<3> s<br>main::(/usr/lib/mc/extfs.d/uzip:54):<br>54: my %known = ( './' => 1 );<br> DB<3> s<br>main::(/usr/lib/mc/extfs.d/uzip:55):<br>55: my %pending = ();<br> DB<3> s<br>main::(/usr/lib/mc/extfs.d/uzip:56):<br>56: my $oldpwd = POSIX::getcwd();<br> DB<3> s<br>main::(/usr/lib/mc/extfs.d/uzip:57):<br>57: my $archive = shift;<br> DB<3> s<br>main::(/usr/lib/mc/extfs.d/uzip:58):<br>58: my $aarchive = absolutize($archive, $oldpwd);<br> DB<3> s<br>main::absolutize(/usr/lib/mc/extfs.d/uzip:422):<br>422: my ($file, $pwd) = @_;<br> DB<3> s<br>main::absolutize(/usr/lib/mc/extfs.d/uzip:423):<br>423: return "$pwd/$file" if ($file !~ /^\//);<br> DB<3> s<br>main::absolutize(/usr/lib/mc/extfs.d/uzip:424):<br>424: return $file;<br> DB<3> s<br>main::(/usr/lib/mc/extfs.d/uzip:59):<br>59: my $cmd_list = ($op_has_zipinfo ? $cmd_list_zi : $cmd_list_nzi);<br> DB<3> s<br>main::(/usr/lib/mc/extfs.d/uzip:60):<br>60: my ($qarchive, $aqarchive) = map (quotemeta, $archive, $aarchive);<br> DB<3> s<br>main::(/usr/lib/mc/extfs.d/uzip:73):<br>73: my $zipfs_realpathname_table = undef;<br>74: sub zipfs_realpathname($) {<br> DB<3> s<br>main::(/usr/lib/mc/extfs.d/uzip:106):<br>106: if ($cmd eq 'list') { &mczipfs_list(@ARGV); }<br> DB<3> s<br>main::(/usr/lib/mc/extfs.d/uzip:106):<br>106: if ($cmd eq 'list') { &mczipfs_list(@ARGV); }<br> DB<3> s<br>main::mczipfs_list(/usr/lib/mc/extfs.d/uzip:249):<br>249: open (PIPE, "$cmd_list $qarchive |") || &croak("$app_unzip failed");<br> DB<3> print $app_unzip<br>/usr/bin/unzip<br> DB<4> s<br>main::mczipfs_list(/usr/lib/mc/extfs.d/uzip:250):<br>250: if ($op_has_zipinfo) {<br> DB<4> s<br>main::mczipfs_list(/usr/lib/mc/extfs.d/uzip:251):<br>251: while (<PIPE>) {<br> DB<4> s<br>main::mczipfs_list(/usr/lib/mc/extfs.d/uzip:277):<br>277: if (!close (PIPE)) {<br> DB<4> s<br>main::mczipfs_list(/usr/lib/mc/extfs.d/uzip:278):<br>278: &croak("$app_unzip failed") if ($! != 0);<br> DB<4> s<br>main::croak(/usr/lib/mc/extfs.d/uzip:366):<br>366: my ($command, $desc) = @_;<br> DB<4> s<br>main::croak(/usr/lib/mc/extfs.d/uzip:367):<br>367: die "uzip ($cmd): $command - $desc\n" if (defined $desc);<br> DB<4> s<br>main::croak(/usr/lib/mc/extfs.d/uzip:368):<br>368: die "uzip ($cmd): $command - $!\n";<br> DB<4> s<br>uzip (list): /usr/bin/unzip failed - Нет дочерних процессов<br> at /usr/lib/mc/extfs.d/uzip line 368.<br> main::croak('/usr/bin/unzip failed') called at /usr/lib/mc/extfs.d/uzip line 278<br> main::mczipfs_list() called at /usr/lib/mc/extfs.d/uzip line 106<br>File::Temp::CODE(0x8569450)(/usr/share/perl5/File/Temp.pm:870):<br>870: local($., $@, $!, $^E, $?);<br> DB<4> q<br>$ /usr/bin/unzip -Z -l -T \/home\/user1\/Desktop\/ziptest\/test\.zip<br>Archive: /home/user1/Desktop/ziptest/test.zip<br>Zip file size: 171 bytes, number of entries: 1<br>-rw-r--r-- 3.0 unx 5 tx 5 stor 20161127.190621 test.txt<br>1 file, 5 bytes uncompressed, 5 bytes compressed: 0.0%<br><br>$ rpm -qf uzip <br>mc-4.8.18-alt1<br></div></div><div class="gmail_extra"><br><div class="gmail_quote">30 ноября 2016 г., 14:58 пользователь Sergey <span dir="ltr"><<a href="mailto:a_s_y@sama.ru" target="_blank">a_s_y@sama.ru</a>></span> написал:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><span class="">On Friday 25 November 2016, Aleksey Birukov wrote:<br>
<br>
> Обновил mc до сизифного, тоже не открывает.<br>
> mc-4.8.17-alt1<br>
<br>
</span>Не думаю, что проблема в mc (или, по крайней мере, в<br>
mc из репозитория), но в Сизиф сейчас уехал 4.8.18+<br>
<span class="HOEnZb"><font color="#888888"><br>
--<br>
С уважением, Сергей.<br>
</font></span><div class="HOEnZb"><div class="h5">______________________________<wbr>_________________<br>
Sisyphus mailing list<br>
<a href="mailto:Sisyphus@lists.altlinux.org">Sisyphus@lists.altlinux.org</a><br>
<a href="https://lists.altlinux.org/mailman/listinfo/sisyphus" rel="noreferrer" target="_blank">https://lists.altlinux.org/<wbr>mailman/listinfo/sisyphus</a></div></div></blockquote></div><br><br clear="all"><br>-- <br><div class="gmail_signature" data-smartmail="gmail_signature">Ответьте, пожалуйста, что-нибудь если получили это письмо.<br><br>--<br>С уважением,<br>Бирюков Алексей<br></div>
</div>