Add node_kind function to differentiate between file and directory
authorYaacov Akiba Slama <ya@slamail.org>
Wed, 2 Nov 2005 21:51:57 +0000 (23:51 +0200)
committerJunio C Hamano <junkio@cox.net>
Tue, 8 Nov 2005 09:24:48 +0000 (01:24 -0800)
Signed-off-by: Yaacov Akiba Slama <ya@slamail.org>
Signed-off-by: Junio C Hamano <junkio@cox.net>
git-svnimport.perl

index 5bf9ef2..83b70f9 100755 (executable)
@@ -260,10 +260,17 @@ EOM
 
 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 "/") {
@@ -274,6 +281,14 @@ sub get_file($$$) {
                $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) {