Perl interface: make testsuite work again.

diff --git a/builtin-cat-file.c b/builtin-cat-file.c
index 8ab136e981d4ba0ed43c6bd9a907c43fd12b8fcd..4d36817e5fed0e50f84eb48ac183b0c377596a86 100644 (file)
--- a/builtin-cat-file.c
+++ b/builtin-cat-file.c
@@ -141,7 +141,7 @@ int cmd_cat_file(int argc, const char **argv, char **envp)
 
                /* custom pretty-print here */
                if (!strcmp(type, tree_type))
-                       return execl_git_cmd("ls-tree", argv[2], NULL);
+                       return cmd_ls_tree(2, argv + 1, NULL);
 
                buf = read_sha1_file(sha1, type, &size);
                if (!buf)