···

       
13
       
 
       


     

       
14
       
 
       
my $ua = LWP::UserAgent->new();

     

       
15
       
 
       


     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
16
       
 
       
keys %$maintainers_json; # reset the internal iterator so a prior each() doesn't affect the loop

     

       
17
       
 
       
while(my($k, $v) = each %$maintainers_json) {

     

       
18
       
 
       
    my $current_user = %$v{'github'};

     

···

       
13
       
 
       


     

       
14
       
 
       
my $ua = LWP::UserAgent->new();

     

       
15
       
 
       


     

       
16
       
+
       
if (!defined $ENV{GH_TOKEN}) {

     

       
17
       
+
       
    die "Set GH_TOKEN before running this script";

     

       
18
       
+
       
}

     

       
19
       
+
       


     

       
20
       
 
       
keys %$maintainers_json; # reset the internal iterator so a prior each() doesn't affect the loop

     

       
21
       
 
       
while(my($k, $v) = each %$maintainers_json) {

     

       
22
       
 
       
    my $current_user = %$v{'github'};