die "Unable to retrieve $resp->{url}: $resp->{status}\n$resp->{content}\n\n"
unless $resp->{success};
-my @job_ids = ( map
- { ($_->{id}||'') =~ /^([0-9]+)$/ }
+my @jobs = ( map
+ { ( ($_->{id}||'') =~ /^([0-9]+)$/ ) ? [ $1 => $_->{number} ] : () }
@{( eval { decode_json( $resp->{content} )->{matrix} } || [] )}
-) or die "Unable to find any job ids:\n$resp->{content}\n\n";
+) or die "Unable to find any jobs:\n$resp->{content}\n\n";
my $dir = "TravisCI_build_$build_id";
mkdir $dir
unless -d $dir;
-for my $job_id (@job_ids) {
- my $log_url = "http://api.travis-ci.org/jobs/$job_id/log.txt";
- my $dest_fn = "$dir/job_$job_id.log";
+for my $job (@jobs) {
+ my $log_url = "http://api.travis-ci.org/jobs/$job->[0]/log.txt";
+ my $dest_fn = "$dir/job_$job->[1].$job->[0].log";
print "Retrieving $log_url into $dest_fn\n";