Explorar o código

Handle failure in push.pl slightly better

Tianon Gravi %!s(int64=10) %!d(string=hai) anos
pai
achega
39b21e67ba
Modificáronse 1 ficheiros con 1 adicións e 1 borrados
  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;
 }