aboutsummaryrefslogtreecommitdiff
path: root/git-svnimport.perl
diff options
context:
space:
mode:
authorYaacov Akiba Slama <ya@slamail.org>2005-11-02 23:51:57 +0200
committerJunio C Hamano <junkio@cox.net>2005-11-08 01:24:48 -0800
commitcbce5d8961f7790a621f7cee6ecb2c25ae372867 (patch)
treed24cd80bad94baa696a3f8ca8468d4fb345f640d /git-svnimport.perl
parentfcfa32b9e10b3c0373a263a732146850bdf67242 (diff)
downloadgit-cbce5d8961f7790a621f7cee6ecb2c25ae372867.tar.gz
git-cbce5d8961f7790a621f7cee6ecb2c25ae372867.tar.xz
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>
Diffstat (limited to 'git-svnimport.perl')
-rwxr-xr-xgit-svnimport.perl21
1 files changed, 18 insertions, 3 deletions
diff --git a/git-svnimport.perl b/git-svnimport.perl
index 5bf9ef21e..83b70f9bb 100755
--- a/git-svnimport.perl
+++ b/git-svnimport.perl
@@ -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) {