diff options
-rw-r--r-- | tweet-archive.pl | 1 |
1 files changed, 1 insertions, 0 deletions
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"; |