summaryrefslogtreecommitdiff
path: root/perl
diff options
context:
space:
mode:
authorPetr Baudis <pasky@suse.cz>2006-06-24 04:34:36 +0200
committerJunio C Hamano <junkio@cox.net>2006-07-02 17:14:40 -0700
commit63df97ae7baeedc3ce04995139fa0f6bc5eea76c (patch)
tree370d65f4f594a3f551f55f6db7baec094664398c /perl
parent8062f81c2d9df5e6552bf267b258ffcc5f647f93 (diff)
downloadgit-63df97ae7baeedc3ce04995139fa0f6bc5eea76c.tar.gz
Git.pm: Implement Git::version()
Git::version() returns the Git version string. Signed-off-by: Petr Baudis <pasky@suse.cz> Signed-off-by: Junio C Hamano <junkio@cox.net>
Diffstat (limited to 'perl')
-rw-r--r--perl/Git.pm14
-rw-r--r--perl/Git.xs10
2 files changed, 23 insertions, 1 deletions
diff --git a/perl/Git.pm b/perl/Git.pm
index 212337ee5b..dcd769b4d1 100644
--- a/perl/Git.pm
+++ b/perl/Git.pm
@@ -48,7 +48,7 @@ require Exporter;
# Methods which can be called as standalone functions as well:
@EXPORT_OK = qw(command command_oneline command_pipe command_noisy
- exec_path hash_object);
+ version exec_path hash_object);
=head1 DESCRIPTION
@@ -285,6 +285,18 @@ sub command_noisy {
}
+=item version ()
+
+Return the Git version in use.
+
+Implementation of this function is very fast; no external command calls
+are involved.
+
+=cut
+
+# Implemented in Git.xs.
+
+
=item exec_path ()
Return path to the git sub-command executables (the same as
diff --git a/perl/Git.xs b/perl/Git.xs
index 6478f9c77f..d4608eb1cb 100644
--- a/perl/Git.xs
+++ b/perl/Git.xs
@@ -24,6 +24,16 @@ PROTOTYPES: DISABLE
const char *
+xs_version()
+CODE:
+{
+ RETVAL = GIT_VERSION;
+}
+OUTPUT:
+ RETVAL
+
+
+const char *
xs_exec_path()
CODE:
{