- $files{$file}{cont} =
- substr($files{$file}{cont},0,$off) .
- $buf_len .
- substr($files{$file}{cont},$off+length($buf_len));
+ $files{$file}{cont} = "";
+
+ $files{$file}{cont} .= substr($cont,0,$off) if ($off > 0);
+ $files{$file}{cont} .= $buffer;
+ $files{$file}{cont} .= substr($cont,-($off+length($buffer))) if ($off+length($buffer) > $len);
+
+ $files{$file}{size} = length($files{$file}{cont});