From eca1f6fdb862e6ca07288ac385725c95fd96490e Mon Sep 17 00:00:00 2001
From: Petr Baudis <pasky@suse.cz>
Date: Sat, 24 Jun 2006 04:34:31 +0200
Subject: Git.pm: Implement Git::exec_path()

This patch implements Git::exec_path() (as a direct XS call).

Signed-off-by: Petr Baudis <pasky@suse.cz>
Signed-off-by: Junio C Hamano <junkio@cox.net>
---
 perl/Git.xs | 12 ++++++++++++
 1 file changed, 12 insertions(+)

(limited to 'perl/Git.xs')

diff --git a/perl/Git.xs b/perl/Git.xs
index 1b81ce244..9e754d253 100644
--- a/perl/Git.xs
+++ b/perl/Git.xs
@@ -6,6 +6,7 @@
 
 /* libgit interface */
 #include "../cache.h"
+#include "../exec_cmd.h"
 
 /* XS and Perl interface */
 #include "EXTERN.h"
@@ -21,6 +22,17 @@ PROTOTYPES: DISABLE
 
 # /* TODO: xs_call_gate(). See Git.pm. */
 
+
+const char *
+xs_exec_path()
+CODE:
+{
+	RETVAL = git_exec_path();
+}
+OUTPUT:
+	RETVAL
+
+
 char *
 xs_hash_object(file, type = "blob")
 	SV *file;
-- 
cgit v1.2.1