From 0bd153aa3369869f40ed2de0ad99dc197658882a Mon Sep 17 00:00:00 2001
From: dakkar <dakkar@thenautilus.net>
Date: Thu, 13 May 2021 14:12:51 +0000
Subject: only print failed responses on error

---
 tweet-archive.pl | 1 +
 1 file changed, 1 insertion(+)

diff --git a/tweet-archive.pl b/tweet-archive.pl
index b78540f..6e007d3 100644
--- a/tweet-archive.pl
+++ b/tweet-archive.pl
@@ -38,6 +38,7 @@ eval {
 } or do {
     print "Fail: $@\n";
     for my $res (@responses) {
+        next if $res->is_success;
         print $res->request->as_string;
         print $res->as_string;
         print "\n",'-' x 50,"\n\n";
-- 
cgit v1.2.3