${ $log_msg } = message();

##</code><code>##

    open my $fh, '>>', $filename or die "Can't open $filename for append: $!";
    my @lines = <STDIN>;
    print $fh @lines;
    close $fh;
    ${ $log_msg } = join("", @lines);
    return;

##</code><code>##

    return SVN::Error::create($apr_err, $child, $message);