# Pastebin xVem1TdX diff --git a/scripts/edit-issues.p6 b/scripts/edit-issues.p6 index 134082f..dad6c5a 100755 --- a/scripts/edit-issues.p6 +++ b/scripts/edit-issues.p6 @@ -3,10 +3,8 @@ # example usage: # ./edit-issues.p6 "I know what I'm doing" YOUR-ACCESS-TOKEN '$body ~= ‘a’' -my $repo = ‘perl6/ecosystem-unbitrot’; -my $url = “https://api.github.com/repos/$repo/issues?state=all”; - -multi MAIN(‘I know what I'm doing’, $token, $evaled-code) { +multi MAIN(‘I know what I'm doing’, $token, $evaled-code, :$repo = ‘perl6/ecosystem-unbitrot’) { + my $*url = “https://api.github.com/repos/$repo/issues?state=all”; for get-issues(:$token).sort(+*) { my $url = .; my $title = .; @@ -35,7 +33,7 @@ multi MAIN(*@) { sub get-issues(:$token) { my @tickets; - my $cur-url = $url; + my $cur-url = $*url; loop { note $cur-url; use Cro::HTTP::Client;