From: Johannes Schindelin <Johannes.Schindelin@gmx.de>
Date: Sun, 2 Jul 2006 09:53:03 +0000 (+0200)
Subject: Git.xs: older perl do not know const char *
X-Git-Tag: v1.4.3-rc1~2^2~21
X-Git-Url: https://git.lorimer.id.au/gitweb.git/diff_plain/d78f099d8956947576cd5ccc1c5c13f94075b476?ds=sidebyside

Git.xs: older perl do not know const char *

Both of these casts _should_ be safe, since you do not want to muck around
with the version or the path anyway.

Signed-off-by: Johannes Schindelin <Johannes.Schindelin@gmx.de>
Signed-off-by: Junio C Hamano <junkio@cox.net>
---

diff --git a/perl/Git.xs b/perl/Git.xs
index 51bfac3bd5..c8242103b5 100644
--- a/perl/Git.xs
+++ b/perl/Git.xs
@@ -59,7 +59,7 @@ BOOT:
 # /* TODO: xs_call_gate(). See Git.pm. */
 
 
-const char *
+char *
 xs_version()
 CODE:
 {
@@ -69,11 +69,11 @@ OUTPUT:
 	RETVAL
 
 
-const char *
+char *
 xs_exec_path()
 CODE:
 {
-	RETVAL = git_exec_path();
+	RETVAL = (char *)git_exec_path();
 }
 OUTPUT:
 	RETVAL