mirror of
https://github.com/git/git
synced 2024-08-27 11:39:22 +00:00
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>
This commit is contained in:
parent
8062f81c2d
commit
63df97ae7b
5
Makefile
5
Makefile
|
@ -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
|
||||
|
|
14
perl/Git.pm
14
perl/Git.pm
|
@ -48,7 +48,7 @@ =head1 SYNOPSIS
|
|||
|
||||
# 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
|
||||
|
|
10
perl/Git.xs
10
perl/Git.xs
|
@ -23,6 +23,16 @@ PROTOTYPES: DISABLE
|
|||
# /* TODO: xs_call_gate(). See Git.pm. */
|
||||
|
||||
|
||||
const char *
|
||||
xs_version()
|
||||
CODE:
|
||||
{
|
||||
RETVAL = GIT_VERSION;
|
||||
}
|
||||
OUTPUT:
|
||||
RETVAL
|
||||
|
||||
|
||||
const char *
|
||||
xs_exec_path()
|
||||
CODE:
|
||||
|
|
Loading…
Reference in a new issue