mirrors/mc
1
0
Fork 0
mirror of https://github.com/MidnightCommander/mc synced 2024-12-23 04:46:55 +03:00
Code Issues Packages Projects Releases Wiki Activity

* extfs/patchfs.in: Fix patch size calculation. Use bytes to

Browse Source 
count size in bytes, not characters (in multibyte encodings char
can be two or more bytes wide).
This commit is contained in:
Andrew V. Samoilov 2002-12-19 18:20:11 +00:00
parent 1df0641954
commit b6aa32d9b2
2 changed files with 16 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
vfs/ChangeLog
View File

@ -1,3 +1,9 @@
2002-12-19 Adam Byrtek <alpha@debian.org>
* extfs/patchfs.in: Fix patch size calculation. Use bytes to
count size in bytes, not characters (in multibyte encodings char
can be two or more bytes wide).
2002-12-19 Andrew V. Samoilov <sav@bcs.zp.ua>
* extfs/patchfs.in: Don't rely on tell() - it doesn't always

23
vfs/extfs/patchfs.in
View File

@ -4,7 +4,9 @@
#
# extfs to handle patches in unified diff format
use bytes;
use strict;
use POSIX;
# standard binaries
my $bzip = "bzip2";
@ -45,7 +47,7 @@ sub error
sub list
{
my ($archive)=(quotemeta $_[0]);
my ($state,$pos,$npos,$time);
my ($state,$pos,$len,$time);
my ($f,$fsrc,$fdst,$prefix);
# use uid and gid from file
@ -54,17 +56,14 @@ sub list
import Date::Parse if ($parsedates);
# state==1 means diff contents, state==0 means comments
$state = 1; $f = '';
my $cpos = 0;
$state=1; $len=0; $f='';
while (<I>) {
$cpos += length;
if (/^--- /) {
# parse diff header
if ($state==1) {
$npos = $cpos - length;
printf "-rw-r--r-- 1 %s %s %d %s %s%s\n", $uid, $gid, $npos-$pos, datetime($time), $prefix, $f
printf "-rw-r--r-- 1 %s %s %d %s %s%s\n", $uid, $gid, $len, datetime($time), $prefix, $f
if $f;
$pos=$npos;
$len=0;
}
$state=1;
@ -110,15 +109,13 @@ sub list
} elsif ($state==1 && !/^([+\- \n]|@@)/) {
# start of comments, end of diff contents
$npos = $cpos - length;
printf "-rw-r--r-- 1 %s %s %d %s %s%s\n", $uid, $gid, $npos-$pos, datetime($time), $prefix, $f
printf "-rw-r--r-- 1 %s %s %d %s %s%s\n", $uid, $gid, $len, datetime($time), $prefix, $f
if $f;
$pos=$npos;
$state=0;
$state=$len=0;
}
$len+=length;
}
$npos = $cpos;
printf "-rw-r--r-- 1 %s %s %d %s %s%s\n", $uid, $gid, $npos-$pos, datetime($time), $prefix, $f
printf "-rw-r--r-- 1 %s %s %d %s %s%s\n", $uid, $gid, $len, datetime($time), $prefix, $f
if $f;
}