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>
This commit is contained in:

committed by
Junio C Hamano

parent
fcfa32b9e1
commit
cbce5d8961
@ -260,10 +260,17 @@ EOM
|
|||||||
|
|
||||||
open BRANCHES,">>", "$git_dir/svn2git";
|
open BRANCHES,">>", "$git_dir/svn2git";
|
||||||
|
|
||||||
sub get_file($$$) {
|
sub node_kind($$$) {
|
||||||
my($rev,$branch,$path) = @_;
|
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;
|
my $svnpath;
|
||||||
$path = "" if $path eq "/"; # this should not happen, but ...
|
$path = "" if $path eq "/"; # this should not happen, but ...
|
||||||
if($branch eq "/") {
|
if($branch eq "/") {
|
||||||
@ -274,6 +281,14 @@ sub get_file($$$) {
|
|||||||
$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
|
# now get it
|
||||||
my $name;
|
my $name;
|
||||||
if($opt_d) {
|
if($opt_d) {
|
||||||
|
Reference in New Issue
Block a user