浏览代码

Add explicit error handling after we update a description (in case our short description is too long or something similar)

Tianon Gravi 11 年之前
父节点
当前提交
d7ee163fee
共有 1 个文件被更改,包括 4 次插入0 次删除
  1. 4 0
      push.pl

+ 4 - 0
push.pl

@@ -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;
+	}
 }
 }