diff options
| author | Yaacov Akiba Slama <ya@slamail.org> | 2005-11-02 21:51:57 (GMT) |
|---|---|---|
| committer | Junio C Hamano <junkio@cox.net> | 2005-11-08 09:24:48 (GMT) |
| commit | cbce5d8961f7790a621f7cee6ecb2c25ae372867 (patch) | |
| tree | d24cd80bad94baa696a3f8ca8468d4fb345f640d /git-svnimport.perl | |
| parent | fcfa32b9e10b3c0373a263a732146850bdf67242 (diff) | |
| download | git-cbce5d8961f7790a621f7cee6ecb2c25ae372867.zip git-cbce5d8961f7790a621f7cee6ecb2c25ae372867.tar.gz git-cbce5d8961f7790a621f7cee6ecb2c25ae372867.tar.bz2 | |
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-x | git-svnimport.perl | 21 |
1 files changed, 18 insertions, 3 deletions
diff --git a/git-svnimport.perl b/git-svnimport.perl index 5bf9ef2..83b70f9 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) { |