diff options
author | Sean Whitton <spwhitton@spwhitton.name> | 2017-02-19 11:55:06 -0700 |
---|---|---|
committer | Sean Whitton <spwhitton@spwhitton.name> | 2017-02-19 11:55:06 -0700 |
commit | d8eea23f02a065c4cfa068471cfbb282c115fc76 (patch) | |
tree | 14abb8ec08f774732f48792581af14b32a286eb6 /bin/src-unregister | |
parent | 42ee6df309ff48ded678347e0b1abeae4c162688 (diff) | |
download | dotfiles-d8eea23f02a065c4cfa068471cfbb282c115fc76.tar.gz |
fix call to mr register in src-unregister
Diffstat (limited to 'bin/src-unregister')
-rwxr-xr-x | bin/src-unregister | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/bin/src-unregister b/bin/src-unregister index a93d87fd..99ed4b00 100755 --- a/bin/src-unregister +++ b/bin/src-unregister @@ -14,6 +14,7 @@ use strict; use Capture::Tiny 'tee_stdout'; use Term::UI; use Tie::File; +use File::chdir; die "need at least one argument" if ( @ARGV < 1 ); chdir "$ENV{'HOME'}/src/"; @@ -29,7 +30,10 @@ foreach my $repo ( @ARGV ) { system "src-register-all"; foreach my $repo ( @ARGV ) { - system "mr -d $repo register"; + { + local $CWD = $repo; + system "mr register"; + } (my $output, undef) = tee_stdout { system "mr -m -d $repo status" }; my $confirm = 1; if (length($output)) { |