|
@@ -162,4 +162,8 @@ while (my $repo = shift) { # '/_/hylang', '/u/tianon/perl', etc
|
|
|
|
|
|
$repoTx = $ua->post($repoUrl => { Referer => $repoUrl } => form => $settingsBits);
|
|
$repoTx = $ua->post($repoUrl => { Referer => $repoUrl } => form => $settingsBits);
|
|
die 'post to ' . $repoUrl . ' failed' unless $repoTx->success;
|
|
die 'post to ' . $repoUrl . ' failed' unless $repoTx->success;
|
|
|
|
+
|
|
|
|
+ if (my $alert = $repoTx->res->dom('.alert-error')) {
|
|
|
|
+ die 'update to ' . $repoUrl . ' failed:' . "\n" . $alert->all_text;
|
|
|
|
+ }
|
|
}
|
|
}
|