Perl warning in git-svn (git v1.5.3-rc7-16-ge340d7d)

From: Robert Newson <robert.newson@gmail.com>
Date: Aug 31, 2007, 12:58 UTC
Message-ID: <46aeb24f0708310558t2defc547v483586f116d8b8ac@mail.gmail.com>

Hi,

The latest head of git gives me this when doing most operations, this also happens with the rc7 experimental Debian package. It's annoying because it prints this line hundreds of times for each call to 'log', for example

"Use of uninitialized value in string eq at blah/git/git-svn line 826."

and this fixes it;

diff --git a/git-svn.perl b/git-svn.perl
index 4e325b7..3d0c76d 100755
--- a/git-svn.perl
+++ b/git-svn.perl
@@ -808,7 +808,7 @@ sub cmt_metadata {
 sub working_head_info {
        my ($head, $refs) = @_;
        my ($fh, $ctx) = command_output_pipe('log', $head);
-       my $hash;
+       my $hash = "";
        my %max;
        while (<$fh>) {
                if ( m{^commit ($::sha1)$} ) {