diff options
author | Sean Whitton <spwhitton@spwhitton.name> | 2020-03-10 09:20:52 -0700 |
---|---|---|
committer | Sean Whitton <spwhitton@spwhitton.name> | 2020-03-10 09:20:52 -0700 |
commit | bf07e6197761a81a13d1aeb292f7026ef812555b (patch) | |
tree | ac73a9ea695b2391222911edad9d0520e3761482 /lib | |
parent | 797404ca55365a028b4957d7d04136ebe3e2fd24 (diff) | |
download | p5-API-GitForge-bf07e6197761a81a13d1aeb292f7026ef812555b.tar.gz |
refer to the fork consistently with $fork_uri
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
Diffstat (limited to 'lib')
-rw-r--r-- | lib/API/GitForge/Role/GitForge.pm | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/lib/API/GitForge/Role/GitForge.pm b/lib/API/GitForge/Role/GitForge.pm index 2f282ae..52760ff 100644 --- a/lib/API/GitForge/Role/GitForge.pm +++ b/lib/API/GitForge/Role/GitForge.pm @@ -109,9 +109,8 @@ sub clean_fork { my $temp = tempdir CLEANUP => 1; my $git = Git::Wrapper->new($temp); $git->init; - $git->remote(qw(add fork), $fork_uri); my @fork_branches - = map { m#refs/heads/#; $' } $git->ls_remote(qw(--heads fork)); + = map { m#refs/heads/#; $' } $git->ls_remote("--heads", $fork_uri); return $fork_uri if grep /\Agitforge\z/, @fork_branches; open my $fh, ">", catfile $temp, "README.md"; |