git-svn: just use Digest::MD5 instead of requiring it

Historically, git-svn did not always use Digest::MD5 because
it did not use the SVN::Delta::Editor interfaces.  Nowadays
it does, and the requires make strace more noisy.

Signed-off-by: Eric Wong <normalperson@yhbt.net>

diff --git a/git-svn.perl b/git-svn.perl
index 20c6fc768b69e966c21b2fe22fabe470dac516de..e387504b8819aeffdc602feb46b1f79cd5c01eb8 100755 (executable)
--- a/git-svn.perl
+++ b/git-svn.perl
@@ -1577,6 +1577,7 @@ package SVN::Git::Fetcher;
 use warnings;
 use Carp qw/croak/;
 use IO::File qw//;
 use warnings;
 use Carp qw/croak/;
 use IO::File qw//;

+use Digest::MD5;

 
 # file baton members: path, mode_a, mode_b, pool, fh, blob, base
 sub new {
 
 # file baton members: path, mode_a, mode_b, pool, fh, blob, base
 sub new {


@@ -1590,7 +1591,6 @@ sub new {
        $self->{absent_dir} = {};
        $self->{absent_file} = {};
        $self->{gii} = $git_svn->tmp_index_do(sub { Git::IndexInfo->new });
        $self->{absent_dir} = {};
        $self->{absent_file} = {};
        $self->{gii} = $git_svn->tmp_index_do(sub { Git::IndexInfo->new });

-       require Digest::MD5;

        $self;
 }
 
        $self;
 }
 


@@ -1798,6 +1798,7 @@ package SVN::Git::Editor;
 use warnings;
 use Carp qw/croak/;
 use IO::File;
 use warnings;
 use Carp qw/croak/;
 use IO::File;

+use Digest::MD5;

 
 sub new {
        my ($class, $opts) = @_;
 
 sub new {
        my ($class, $opts) = @_;


@@ -1826,7 +1827,6 @@ sub new {
        $self->{rm} = { };
        $self->{path_prefix} = length $self->{svn_path} ?
                               "$self->{svn_path}/" : '';
        $self->{rm} = { };
        $self->{path_prefix} = length $self->{svn_path} ?
                               "$self->{svn_path}/" : '';

-       require Digest::MD5;

        return $self;
 }
 
        return $self;
 }