瀏覽代碼

Handle failure in push.pl slightly better

Tianon Gravi 10 年之前
父節點
當前提交
39b21e67ba
共有 1 個文件被更改,包括 1 次插入1 次删除
  1. 1 1
      push.pl

+ 1 - 1
push.pl

@@ -118,5 +118,5 @@ while (my $repo = shift) { # '/library/hylang', '/tianon/perl', etc
 			description => $hubShort,
 			full_description => $hubLong,
 		});
-	die 'patch to ' . $repoUrl . ' failed' unless $repoPatch->success;
+	warn 'patch to ' . $repoUrl . ' failed: ' . $repoPatch->res->text and next unless $repoPatch->success;
 }