Add node_kind function to differentiate between file and directory

Signed-off-by: Yaacov Akiba Slama <ya@slamail.org>
Signed-off-by: Junio C Hamano <junkio@cox.net>

diff --git a/git-svnimport.perl b/git-svnimport.perl
index 5bf9ef21e396eb91f549638f6d572172c2cb6f18..83b70f9bb8451e557dedd07f5ee507502123e7f7 100755 (executable)
--- a/git-svnimport.perl
+++ b/git-svnimport.perl
@@ -260,10 +260,17 @@ ($$)
 
 open BRANCHES,">>", "$git_dir/svn2git";
 
 
 open BRANCHES,">>", "$git_dir/svn2git";
 

-sub get_file($$$) {
-       my($rev,$branch,$path) = @_;
+sub node_kind($$$) {
+       my ($branch, $path, $revision) = @_;
+       my $pool=SVN::Pool->new;
+       my $kind = $svn->{'svn'}->check_path(revert_split_path($branch,$path),$revision,$pool);
+       $pool->clear;
+       return $kind;
+}
+
+sub revert_split_path($$) {
+       my($branch,$path) = @_;

 
 

-       # revert split_path(), below

        my $svnpath;
        $path = "" if $path eq "/"; # this should not happen, but ...
        if($branch eq "/") {
        my $svnpath;
        $path = "" if $path eq "/"; # this should not happen, but ...
        if($branch eq "/") {


@@ -274,6 +281,14 @@ ($$$)
                $svnpath = "$branch_name/$branch/$path";
        }
 
                $svnpath = "$branch_name/$branch/$path";
        }
 

+       return $svnpath
+}
+
+sub get_file($$$) {
+       my($rev,$branch,$path) = @_;
+
+       my $svnpath = revert_split_path($branch,$path);
+

        # now get it
        my $name;
        if($opt_d) {
        # now get it
        my $name;
        if($opt_d) {