| 1 | # BEGIN RUNTIME_PREFIX generated code. |
| 2 | # |
| 3 | # This finds our Git::* libraries relative to the script's runtime path. |
| 4 | sub __git_system_path { |
| 5 | my ($relpath) = @_; |
| 6 | my $gitexecdir_relative = '@GITEXECDIR_REL@'; |
| 7 | |
| 8 | # GIT_EXEC_PATH is supplied by `git` or the test suite. |
| 9 | my $exec_path; |
| 10 | if (exists $ENV{GIT_EXEC_PATH}) { |
| 11 | $exec_path = $ENV{GIT_EXEC_PATH}; |
| 12 | } else { |
| 13 | # This can happen if this script is being directly invoked instead of run |
| 14 | # by "git". |
| 15 | require FindBin; |
| 16 | $exec_path = $FindBin::Bin; |
| 17 | } |
| 18 | |
| 19 | # Trim off the relative gitexecdir path to get the system path. |
| 20 | (my $prefix = $exec_path) =~ s/\Q$gitexecdir_relative\E$//; |
| 21 | |
| 22 | require File::Spec; |
| 23 | return File::Spec->catdir($prefix, $relpath); |
| 24 | } |
| 25 | |
| 26 | BEGIN { |
| 27 | use lib split /@PATHSEP@/, |
| 28 | ( |
| 29 | $ENV{GITPERLLIB} || |
| 30 | do { |
| 31 | my $perllibdir = __git_system_path('@PERLLIBDIR_REL@'); |
| 32 | (-e $perllibdir) || die("Invalid system path ($relpath): $path"); |
| 33 | $perllibdir; |
| 34 | } |
| 35 | ); |
| 36 | |
| 37 | # Export the system locale directory to the I18N module. The locale directory |
| 38 | # is only installed if NO_GETTEXT is set. |
| 39 | $Git::I18N::TEXTDOMAINDIR = __git_system_path('@LOCALEDIR_REL@'); |
| 40 | } |
| 41 | |
| 42 | # END RUNTIME_PREFIX generated code. |