diff options
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)) { |