Ticket #1477: mc-4.7.0-pre1.patchfs.patch

File mc-4.7.0-pre1.patchfs.patch, 1.4 KB (added by angel_il, 15 years ago)

  • vfs/extfs/patchfs.in 

    diff -Naur mc-4.7.0-pre1~/misc/mc.ext.in mc-4.7.0-pre1/misc/mc.ext.in
diff -Naur mc-4.7.0-pre1~/src/util.c mc-4.7.0-pre1/src/util.c
diff -Naur mc-4.7.0-pre1~/vfs/extfs/patchfs.in mc-4.7.0-pre1/vfs/extfs/patchfs.in
    old new  
    1717my $xz   = 'xz'; 
    1818my $bzip = 'bzip2'; 
    1919my $gzip = 'gzip'; 
    20 my $fileutil = 'file'; 
     20my $fileutil = 'file -b'; 
    2121 
    2222# date parsing requires Date::Parse from TimeDate module 
    2323my $parsedates = eval 'require Date::Parse'; 
    … …  
    7474    my ($qfname)=(quotemeta $_[0]); 
    7575 
    7676    $_=`$fileutil $qfname`; 
    77     if (/lzma/) { 
     77    if (/^lzma/) { 
    7878        return "$lzma -dc $qfname"; 
    79     } elsif (/xz/) { 
     79    } elsif (/^xz/) { 
    8080        return "$xz -dc $qfname"; 
    81     } elsif (/bzip/) { 
     81    } elsif (/^bzip/) { 
    8282        return "$bzip -dc $qfname"; 
    83     } elsif (/gzip/) { 
     83    } elsif (/^gzip/) { 
    8484        return "$gzip -dc $qfname"; 
    8585    } else { 
    8686        return "cat $qfname"; 
    … …  
    9494    my ($sep) = $append ? '>>' : '>'; 
    9595 
    9696    $_=`$fileutil $qfname`; 
    97     if (/lzma/) { 
     97    if (/^lzma/) { 
    9898        return "$lzma -c $sep $qfname"; 
    99     } elsif (/xz/) { 
     99    } elsif (/^xz/) { 
    100100        return "$xz -c $sep $qfname"; 
    101     } elsif (/bzip/) { 
     101    } elsif (/^bzip/) { 
    102102        return "$bzip -c $sep $qfname"; 
    103     } elsif (/gzip/) { 
     103    } elsif (/^gzip/) { 
    104104        return "$gzip -c $sep $qfname"; 
    105105    } else { 
    106106        return "cat $sep $qfname";