make it possible to run install-git-hooks without going via mr

Useful in the repos of new projects.

1 files changed, 3 insertions, 2 deletions

diff --git a/bin/install-git-hooks b/bin/install-git-hooks
index 34db09b2..ea070e7d 100755
--- a/bin/install-git-hooks
+++ b/bin/install-git-hooks
@@ -18,11 +18,12 @@
 use strict;
 use warnings;
 
+use Cwd qw(getcwd);
 use List::Util qw(uniq);
 use File::Spec::Functions qw(catfile);
 
 die "usage: install-git-hooks NAME\n" unless @ARGV == 1;
-die "must be run by mr(1)\n" unless $ENV{MR_REPO};
+my $target = $ENV{MR_REPO} || getcwd;
 
 my $source = catfile $ENV{HOME}, qw(src dotfiles hooks git), $ARGV[0];
 my $chained_hook = catfile $ENV{HOME}, qw(src dotfiles hooks git chained_hook);
@@ -31,7 +32,7 @@ opendir(my $dirh, $source) or die "could not find $source dir\n";
 my @hooks = grep { $_ ne '.' and $_ ne '..' } readdir $dirh;
 my @hook_types = uniq map { /^([^_]+)_/; $1 // () } @hooks;
 
-chdir $ENV{MR_REPO};
+chdir $target;
 my $config_hooks_path = `git config core.hooksPath`;
 chomp(my $hook_dir = $config_hooks_path || `git rev-parse --git-path hooks`);