diff options
| author | Petr Baudis <pasky@suse.cz> | 2006-06-24 04:34:36 +0200 |
|---|---|---|
| committer | Junio C Hamano <junkio@cox.net> | 2006-07-02 17:14:40 -0700 |
| commit | 63df97ae7baeedc3ce04995139fa0f6bc5eea76c (patch) | |
| tree | 370d65f4f594a3f551f55f6db7baec094664398c | |
| parent | 8062f81c2d9df5e6552bf267b258ffcc5f647f93 (diff) | |
| download | git-63df97ae7baeedc3ce04995139fa0f6bc5eea76c.tar.gz git-63df97ae7baeedc3ce04995139fa0f6bc5eea76c.tar.xz | |
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>
| -rw-r--r-- | Makefile | 5 | ||||
| -rw-r--r-- | perl/Git.pm | 14 | ||||
| -rw-r--r-- | perl/Git.xs | 10 |
3 files changed, 27 insertions, 2 deletions
@@ -610,7 +610,10 @@ $(XDIFF_LIB): $(XDIFF_OBJS) perl/Makefile: perl/Git.pm perl/Makefile.PL - (cd perl && $(PERL_PATH) Makefile.PL PREFIX="$(prefix)" DEFINE="$(ALL_CFLAGS)" LIBS="$(LIBS)") + (cd perl && $(PERL_PATH) Makefile.PL \ + PREFIX="$(prefix)" \ + DEFINE="$(ALL_CFLAGS) -DGIT_VERSION=\\\"$(GIT_VERSION)\\\"" \ + LIBS="$(LIBS)") doc: $(MAKE) -C Documentation all diff --git a/perl/Git.pm b/perl/Git.pm index 212337ee5..dcd769b4d 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 6478f9c77..d4608eb1c 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: { |