43 lines
1.1 KiB
Perl
43 lines
1.1 KiB
Perl
|
# BEGIN RUNTIME_PREFIX generated code.
|
||
|
|
#
|
||
|
|
# This finds our Git::* libraries relative to the script's runtime path.
|
||
|
|
sub __git_system_path {
|
||
|
|
my ($relpath) = @_;
|
||
|
|
my $gitexecdir_relative = '@@GITEXECDIR_REL@@';
|
||
|
|
|
||
|
|
# GIT_EXEC_PATH is supplied by `git` or the test suite.
|
||
|
|
my $exec_path;
|
||
|
|
if (exists $ENV{GIT_EXEC_PATH}) {
|
||
|
|
$exec_path = $ENV{GIT_EXEC_PATH};
|
||
|
|
} else {
|
||
|
|
# This can happen if this script is being directly invoked instead of run
|
||
|
|
# by "git".
|
||
|
|
require FindBin;
|
||
|
|
$exec_path = $FindBin::Bin;
|
||
|
|
}
|
||
|
|
|
||
|
|
# Trim off the relative gitexecdir path to get the system path.
|
||
|
|
(my $prefix = $exec_path) =~ s/\Q$gitexecdir_relative\E$//;
|
||
|
|
|
||
|
|
require File::Spec;
|
||
|
|
return File::Spec->catdir($prefix, $relpath);
|
||
|
|
}
|
||
|
|
|
||
|
|
BEGIN {
|
||
|
|
use lib split /@@PATHSEP@@/,
|
||
|
|
(
|
||
|
|
$ENV{GITPERLLIB} ||
|
||
|
|
do {
|
||
|
|
my $perllibdir = __git_system_path('@@PERLLIBDIR_REL@@');
|
||
|
|
(-e $perllibdir) || die("Invalid system path ($relpath): $path");
|
||
|
|
$perllibdir;
|
||
|
|
}
|
||
|
|
);
|
||
|
|
|
||
|
|
# Export the system locale directory to the I18N module. The locale directory
|
||
|
|
# is only installed if NO_GETTEXT is set.
|
||
|
|
$Git::I18N::TEXTDOMAINDIR = __git_system_path('@@LOCALEDIR_REL@@');
|
||
|
|
}
|
||
|
|
|
||
|
|
# END RUNTIME_PREFIX generated code.
|