]>
Commit | Line | Data |
---|---|---|
07d90ead DJ |
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. |