Browse Source

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>
maint
Petr Baudis 19 years ago committed by Junio C Hamano
parent
commit
63df97ae7b
  1. 5
      Makefile
  2. 14
      perl/Git.pm
  3. 10
      perl/Git.xs

5
Makefile

@ -610,7 +610,10 @@ $(XDIFF_LIB): $(XDIFF_OBJS)




perl/Makefile: perl/Git.pm perl/Makefile.PL 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: doc:
$(MAKE) -C Documentation all $(MAKE) -C Documentation all

14
perl/Git.pm

@ -48,7 +48,7 @@ require Exporter;


# Methods which can be called as standalone functions as well: # Methods which can be called as standalone functions as well:
@EXPORT_OK = qw(command command_oneline command_pipe command_noisy @EXPORT_OK = qw(command command_oneline command_pipe command_noisy
exec_path hash_object); version exec_path hash_object);




=head1 DESCRIPTION =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 () =item exec_path ()


Return path to the git sub-command executables (the same as Return path to the git sub-command executables (the same as

10
perl/Git.xs

@ -23,6 +23,16 @@ PROTOTYPES: DISABLE
# /* TODO: xs_call_gate(). See Git.pm. */ # /* TODO: xs_call_gate(). See Git.pm. */




const char *
xs_version()
CODE:
{
RETVAL = GIT_VERSION;
}
OUTPUT:
RETVAL


const char * const char *
xs_exec_path() xs_exec_path()
CODE: CODE:

Loading…
Cancel
Save