From bac0d1d2c9e9249db7a7a6c4aa7e1f032d193756 Mon Sep 17 00:00:00 2001
From: Tianon Gravi <admwiggin@gmail.com>
Date: Thu, 11 May 2023 09:29:54 -0700
Subject: [PATCH] Let "push.pl" fail when updates fail

---
 push.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/push.pl b/push.pl
index 43c11bf34..4c871ea9f 100755
--- a/push.pl
+++ b/push.pl
@@ -233,5 +233,5 @@ while (my $repo = shift) { # 'library/hylang', 'tianon/perl', etc
 			description => $hubShort,
 			full_description => $hubLong,
 		});
-	warn 'patch to ' . $repoUrl . ' failed: ' . $repoPatch->res->text and next unless $repoPatch->res->is_success;
+	die 'patch to ' . $repoUrl . ' failed: ' . $repoPatch->res->text unless $repoPatch->res->is_success;
 }