Parcourir la source

Handle failure in push.pl slightly better

Tianon Gravi il y a 10 ans
Parent
commit
39b21e67ba
1 fichiers modifiés avec 1 ajouts et 1 suppressions
  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;
 }