Committer: gariev
LJSUP-9569: remove some debug or uniformative warnings from logU trunk/cgi-bin/LJ/Client/Twitter.pm
Modified: trunk/cgi-bin/LJ/Client/Twitter.pm =================================================================== --- trunk/cgi-bin/LJ/Client/Twitter.pm 2011-09-06 06:06:12 UTC (rev 10963) +++ trunk/cgi-bin/LJ/Client/Twitter.pm 2011-09-06 08:01:10 UTC (rev 10964) @@ -138,11 +138,7 @@ my $res = $ua->post($request->to_url); unless ($res->is_success) { - require Data::Dumper; - warn 'twitter connectivity error: ' . - Data::Dumper::Dumper($res); - - die "twitter connectivity error"; + die "twitter connectivity error: " . $res->status_line; } my %params_returned; @@ -179,11 +175,7 @@ my $res = $ua->post($request->to_url); unless ($res->is_success) { - require Data::Dumper; - warn 'twitter connectivity error: ' . - Data::Dumper::Dumper($res); - - die "twitter connectivity error"; + die "twitter connectivity error: " . $res->status_line; } my %params_returned; @@ -310,9 +302,7 @@ body => LJ::Lang::get_text($lang, 'twitter.disconnect_letter.body', undef, { user => $u->username }), } ) or warn "Unable to send_mail"; } else { - require Data::Dumper; - warn 'twitter connectivity error: ' . Data::Dumper::Dumper($res); - die "twitter connectivity error"; + die "twitter connectivity error: " . $res->status_line; } return undef; }