+ $packages_contents_nr{$_}++;
+ my $lw = $packages_contents_lastword{$_} || "\0";
+ my $i=0;
+ while (substr($file,$i,1) eq substr($lw,$i++,1)) {}
+ $i--;
+ $i = 255 if $i > 255;
+ $packages_contents{$_} .= pack "CC/a*", ($i, substr($file, $i));
+ $packages_contents_lastword{$_} = "$file\0";