From bcf46d5799e71a1c73b8ae9ed6f8844b1293f91a Mon Sep 17 00:00:00 2001
From: "Yury V. Zaytsev" <yury@shurup.com>
Date: Tue, 10 May 2011 11:42:48 +0200
Subject: [PATCH] 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>
---
 lib/vfs/mc-vfs/extfs/deb.in | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/lib/vfs/mc-vfs/extfs/deb.in b/lib/vfs/mc-vfs/extfs/deb.in
index 42476188c..89345f2a8 100644
--- a/lib/vfs/mc-vfs/extfs/deb.in
+++ b/lib/vfs/mc-vfs/extfs/deb.in
@@ -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+/;
-- 
2.11.4.GIT