Changeset 0948fa0f

Timestamp:

Dec 19, 2009, 10:02:56 PM (14 years ago)

Author:

Nelson Elhage <nelhage@mit.edu>

Branches:

master, release-1.10, release-1.7, release-1.8, release-1.9

Children:

63d9de9

Parents:

22fce654

Message:

End all warn() and die() messages with a newline.

This prevents perl from appending perl script line information, which
looks ugly and is useless to anyone who is not the developer.

File:

• lib/BarnOwl/Module/Twitter/Handle.pm (modified) (7 diffs)

lib/BarnOwl/Module/Twitter/Handle.pm

@@ -78 +78 @@
 
     my $timeline = eval { $self->{twitter}->home_timeline({count => 1}) };
-    warn "$@" if $@;
+    warn "$@\n" if $@;
 
     if(!defined($timeline)) {
@@ -92 +92 @@
         $self->{last_direct} = $self->{twitter}->direct_messages()->[0]{id};
     };
-    warn "$@" if $@;
+    warn "$@\n" if $@;
     $self->{last_direct} = 1 unless defined($self->{last_direct});
 
@@ -98 +98 @@
         $self->{twitter}->{ua}->timeout(1);
     };
-    warn "$@" if $@;
+    warn "$@\n" if $@;
 
     return $self;
@@ -135 +135 @@
 
     my $ratelimit = eval { $self->{twitter}->rate_limit_status };
-    warn "$@" if $@;
+    warn "$@\n" if $@;
     unless(defined($ratelimit) && ref($ratelimit) eq 'HASH') {
         # Twitter's just sucking, sleep for 5 minutes
@@ -160 +160 @@
 
     my $timeline = eval { $self->{twitter}->home_timeline( { since_id => $self->{last_id} } ) };
-    warn "$@" if $@;
+    warn "$@\n" if $@;
     unless(defined($timeline) && ref($timeline) eq 'ARRAY') {
         $self->twitter_error();
@@ -168 +168 @@
     if ($self->{cfg}->{show_mentions}) {
         my $mentions = eval { $self->{twitter}->mentions( { since_id => $self->{last_id} } ) };
-        warn "$@" if $@;
+        warn "$@\n" if $@;
         unless (defined($mentions) && ref($mentions) eq 'ARRAY') {
             $self->twitter_error();
@@ -213 +213 @@
 
     my $direct = eval { $self->{twitter}->direct_messages( { since_id => $self->{last_direct} } ) };
-    warn "$@" if $@;
+    warn "$@\n" if $@;
     unless(defined($direct) && ref($direct) eq 'ARRAY') {
         $self->twitter_error();