]>
git.ipfire.org Git - thirdparty/git.git/blob - perl/Git/Error.pm
8 Git::Error - Wrapper for the L<Error> module, in case it's not installed
12 Wraps the import function for the L<Error> module.
14 This module is only intended to be used for code shipping in the
15 C<git.git> repository. Use it for anything else at your peril!
27 my $error = $@
|| "Zombie Error";
29 my $Git_Error_pm_path = $INC{"Git/Error.pm"} || die "BUG: Should have our own path from %INC!";
31 require File
::Basename
;
32 my $Git_Error_pm_root = File
::Basename
::dirname
($Git_Error_pm_path) || die "BUG: Can't figure out lib/Git dirname from '$Git_Error_pm_path'!";
35 my $Git_pm_FromCPAN_root = File
::Spec
->catdir($Git_Error_pm_root, 'FromCPAN');
36 die "BUG: '$Git_pm_FromCPAN_root' should be a directory!" unless -d
$Git_pm_FromCPAN_root;
38 local @INC = ($Git_pm_FromCPAN_root, @INC);