cf9cf038f3
installing the hooks first NHgithook.pm: add some warnings if nhversioning can't open files make sure nhversioning fails before opening gitinfo.txt if it can't get valid data
34 lines
857 B
Perl
34 lines
857 B
Perl
#!/usr/bin/perl
|
|
|
|
#STARTUP-START
|
|
BEGIN {
|
|
# OS hackery has to be duplicated in each of the hooks :/
|
|
# first the directory separator
|
|
my $DS = quotemeta('/');
|
|
my $PDS = '/';
|
|
# msys: POSIXish over a Windows filesystem (so / not \ but \r\n not \n).
|
|
# temporarily removed because inconsistent behavior
|
|
# if ($^O eq "msys")
|
|
# {
|
|
# $/ = "\r\n";
|
|
# $\ = "\r\n";
|
|
# }
|
|
if($^O eq "MSWin32"){
|
|
$DS = quotemeta('\\');
|
|
$PDS = '\\';
|
|
}
|
|
$gitdir = `git rev-parse --git-dir`;
|
|
chomp $gitdir;
|
|
push(@INC, $gitdir.$PDS."hooks");
|
|
|
|
# special case for this script only: allow
|
|
# it to run from DEVEL or $TOP
|
|
if (-f "hooksdir/NHgithook.pm" || -f "DEVEL/hooksdir/NHgithook.pm"){
|
|
push(@INC, "DEVEL/hooksdir");
|
|
}
|
|
chdir("..") if (-f "hooksdir/NHgithook.pm");
|
|
}
|
|
use NHgithook;
|
|
|
|
&NHgithook::nhversioning;
|