mirrors/mc
1
0
Fork 0
mirror of https://github.com/MidnightCommander/mc synced 2025-03-12 19:03:10 +03:00
Code Issues Packages Projects Releases Wiki Activity

Merge branch '2552_deb_extfs_perl'

Browse Source 
* 2552_deb_extfs_perl:
  Added locale setting before calling dpkg to fix "link to" parsing on non-C locales
  Ticket #2552: Browsing *.deb files is broken with latest Perl
This commit is contained in:
Andrew Borodin 2011-05-17 15:50:54 +04:00
commit 2ed2895cd1
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -42,11 +42,11 @@ sub mcdebfs_list
print "-r--r--r-- 1 root root $info_size $date INFO\n";
print "-r-xr--r-- 1 root root $install_size $date INSTALL\n";
if ( open(PIPEIN, "dpkg-deb -c $qarchivename |") )
if ( open(PIPEIN, "LC_ALL=C dpkg-deb -c $qarchivename |") )
{
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+/;