From: Eric Wong <normalperson@yhbt.net>
Date: Tue, 30 Jan 2007 00:27:08 +0000 (-0800)
Subject: git-svn: just use Digest::MD5 instead of requiring it
X-Git-Tag: v1.5.1-rc1~211
X-Git-Url: http://git.tremily.us/?a=commitdiff_plain;h=90c1b15da303fa40457e0a9e5c11a57adbfa1879;p=git.git

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 20c6fc768..e387504b8 100755
--- a/git-svn.perl
+++ b/git-svn.perl
@@ -1577,6 +1577,7 @@ use strict;
 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 {
@@ -1590,7 +1591,6 @@ sub new {
 	$self->{absent_dir} = {};
 	$self->{absent_file} = {};
 	$self->{gii} = $git_svn->tmp_index_do(sub { Git::IndexInfo->new });
-	require Digest::MD5;
 	$self;
 }
 
@@ -1798,6 +1798,7 @@ use strict;
 use warnings;
 use Carp qw/croak/;
 use IO::File;
+use Digest::MD5;
 
 sub new {
 	my ($class, $opts) = @_;
@@ -1826,7 +1827,6 @@ sub new {
 	$self->{rm} = { };
 	$self->{path_prefix} = length $self->{svn_path} ?
 	                       "$self->{svn_path}/" : '';
-	require Digest::MD5;
 	return $self;
 }