if ($self->{sign} && !$self->{check_only}) {
        my $digest = IO::String->new;
        $cb_closed = sub {
            print $digest join(' ', 'MD5', $_[1], $_[0])."\n";
        };
        my $old_cb_merged = $cb_merged;
        $cb_merged = sub { my ($editor, $baton, $pool) = @_;
                           my $sig =_sign_gpg ('/tmp/svk-sign',
                                               ${$digest->string_ref});
                           $editor->change_dir_prop
                               ($baton, 'svk:signature', $sig);
                           &{$old_cb_merged} (@_) };
    }

NAME

commit - Commit changes to depot.

SYNOPSIS

    commit [PATH...]

OPTIONS

    options:
    -m [--message] ARG:    specify commit message ARG
    -s [--sign]:           sign the commit

AUTHORS

Chia-liang Kao <clkao@clkao.org>

COPYRIGHT

Copyright 2003-2004 by Chia-liang Kao <clkao@clkao.org>.

This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

See http://www.perl.com/perl/misc/Artistic.html