diff options
Diffstat (limited to 'perl')
| -rw-r--r-- | perl/Git.pm | 14 | ||||
| -rw-r--r-- | perl/Git.xs | 10 |
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: { |