maryjane/syncevolution
1
0
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity

synccompare: workaround for Perl "panic: memory wrap at..."

Browse source 
Somehow Perl choked on Normalize(join("", @content2), $singlewidth).
Storing the result of join() in a variable avoided that.
This commit is contained in:
Patrick Ohly 2010-02-26 13:18:42 +01:00
parent 6a01c0982b
commit 93d1bf542b
1 changed files with 4 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
test/synccompare.pl
View file

@ -568,8 +568,10 @@ if($#ARGV > 1) {
open(IN, "<:utf8", "$fullname") || die "$fullname: $!";
push @content1, <IN>;
}
@normal1 = Normalize(join("", @content1), $singlewidth);
@normal2 = Normalize(join("", @content2), $singlewidth);
my $content1 = join("", @content1);
my $content2 = join("", @content2);
@normal1 = Normalize($content1, $singlewidth);
@normal2 = Normalize($content2, $singlewidth);
} else {
if (-d $file1) {
open(IN1, "-|:utf8", "find $file1 -type f -print0 | xargs -0 cat") || die "$file1: $!";