1# BEGIN RUNTIME_PREFIX generated code. 2# 3# This finds our Git::* libraries relative to the script's runtime path. 4sub __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 26BEGIN { 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. 43