nethack-gwaa-kiwi/nethack
1
0
Fork 0
Code Pull Requests Activity

last gitinfo bit?

Browse Source 
If dat/gitinfo.txt is being created from scratch, say so instead of
saying "updated".
This commit is contained in:
PatR
2018-03-10 12:55:28 -08:00
parent ddb830911e
commit f026e37573
1 changed files with 4 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
DEVEL/hooksdir/NHgithook.pm
View File

@@ -73,8 +73,10 @@ sub nhversioning {
my $git_branch = `git rev-parse --abbrev-ref HEAD`;
$git_branch =~ s/\s+//g;
die "git rev-parse failed" unless(length $git_sha and length $git_branch);
my $exists = 0;
if (open my $fh, '<', 'dat/gitinfo.txt') {
$exists = 1;
my $hashok = 0;
my $branchok = 0;
while (my $line = <$fh>) {
@@ -94,9 +96,10 @@ sub nhversioning {
print "WARNING: Can't find dat directory\n" unless(-d "dat");
}
if (open my $fh, '>', 'dat/gitinfo.txt') {
my $how = ($exists ? "updated" : "created");
print $fh 'githash='.$git_sha."\n";
print $fh 'gitbranch='.$git_branch."\n";
print "dat/gitinfo.txt updated, githash=".$git_sha."\n";
print "dat/gitinfo.txt ".$how.", githash=".$git_sha."\n";
} else {
print "WARNING: Unable to open dat/gitinfo.txt: $!\n";
}