Fix error message for failed pingbacks

mdom · Mar 11, 2016 · ceddf59 · ceddf59
1 parent 9edbb68
commit ceddf59
Showing 1 changed file with 5 additions and 4 deletions.
diff --git a/lib/App/txtnix/Plugin/LinkBack.pm b/lib/App/txtnix/Plugin/LinkBack.pm
@@ -49,10 +49,11 @@ sub linkback {
                 }
                 else {
                     my $prefix = "Couldn't ping back to $url";
-                    my $err    = $tx->error;
-                    warn $err
-                      ? "$prefix: $err->{code} response: $err->{message}\n"
-                      : "$prefix: Connection error: $err->{message}\n";
+                    if ( my $err = $tx->error ) {
+                        warn $err->{code}
+                          ? "$prefix: $err->{code} response: $err->{message}\n"
+                          : "$prefix: Connection error: $err->{message}\n";
+                    }
                 }
                 $end->();
             }