mirrors
/
mc
mirror of https://github.com/MidnightCommander/mc
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Ticket #2552: Browsing *.deb files is broken with latest Perl 

Latest Perl update broke the deb extfs. Thanks to Jakub Wilk for the solution!

Signed-off-by: Yury V. Zaytsev <yury@shurup.com>
This commit is contained in:
Yury V. Zaytsev 2011-05-10 11:42:48 +02:00 committed by Andrew Borodin
parent 5b85bfb5e0
commit 87174687e2
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/vfs/extfs/helpers/deb.in
View File

@ -46,7 +46,7 @@ sub mcdebfs_list
{
while(<PIPEIN>)
{
split;
@_ = split;
$perm=$_[0]; $owgr=$_[1]; $size=$_[2];
if($_[3] =~ /^\d\d\d\d\-/) { # New tar format
@ -100,7 +100,7 @@ sub mcdebfs_list
{
while(<PIPEIN>)
{
split;
@_ = split;
$size=$_[0];
last if $size =~ /:/;
next if $size !~ /\d+/;