git-svn: bugfix: allow SVN:: lib users to track the root of the repository

[git.git] / git-svn.perl

diff --git a/git-svn.perl b/git-svn.perl
index 3327ad36444cb00ff01d6eed69bcab2767127e96..7d9839e7ac53a3fa6a9755eb5fc82a3a6cff501e 100755 (executable)
--- a/git-svn.perl
+++ b/git-svn.perl
@@ -2580,7 +2580,9 @@ sub libsvn_connect {
 sub libsvn_get_file {
        my ($gui, $f, $rev) = @_;
        my $p = $f;
-       return unless ($p =~ s#^\Q$SVN_PATH\E/##);
+       if (length $SVN_PATH > 0) {
+               return unless ($p =~ s#^\Q$SVN_PATH\E/##);
+       }
 
        my ($hash, $pid, $in, $out);
        my $pool = SVN::Pool->new;
@@ -2627,6 +2629,7 @@ sub libsvn_log_entry {
        if (defined $_authors && ! defined $users{$author}) {
                die "Author: $author not defined in $_authors file\n";
        }
+       $msg = '' if ($rev == 0 && !defined $msg);
        return { revision => $rev, date => "+0000 $Y-$m-$d $H:$M:$S",
                author => $author, msg => $msg."\n", parents => $parents || [] }
 }