Someone

442 sub svn_add_file {
    443     my ($path, $properties, $text) = @_;
    444     $dir_usage{parent_directory($path)}++;
    445     my $ppty_txt = svn_props2string($properties);
    446     my $ppty_len = length($ppty_txt) + 1;
    447     my $text_len = length($text);
    448     my $text_md5 = md5_hex($text);
    449     my $content_len = $ppty_len + $text_len;
    450     print <<"EOT";
    451 Node-path: $path
    452 Node-kind: file
    453 Node-action: add
    454 Text-content-length: $text_len
    455 Text-content-md5: $text_md5
    456 Prop-content-length: $ppty_len
    457 Content-length: $content_len
    458 
    459 $ppty_txt
    460 $text
    461 
    462 EOT
    463 }