Support bash completion of refs/remote.
[gitweb.git] / git-svn.perl
index 0a47b1f9fd4bfcbfabb41433049ab7a1361dd449..de4e74a60d58500d175eeb15968e1579a9874c60 100755 (executable)
@@ -2919,8 +2919,12 @@ sub libsvn_fetch {
        my $p = $SVN->{svn_path};
        foreach my $f (keys %$paths) {
                my $m = $paths->{$f}->action();
-               $f =~ s#^/\Q$p\E/##;
-               next if $f =~ m#^/#;
+               if (length $p) {
+                       $f =~ s#^/\Q$p\E/##;
+                       next if $f =~ m#^/#;
+               } else {
+                       $f =~ s#^/##;
+               }
                if ($m =~ /^[DR]$/) {
                        print "\t$m\t$f\n" unless $_q;
                        process_rm($gui, $last_commit, $f);