Changeset eb20731 for perl/modules/Facebook/lib/BarnOwl/Module

Timestamp:

Sep 20, 2011, 11:15:31 PM (13 years ago)

Author:

Edward Z. Yang <ezyang@mit.edu>

Branches:

master, release-1.10, release-1.9

Children:

8b62088

Parents:

b49aaf8

git-author:

Edward Z. Yang <ezyang@mit.edu> (06/22/11 09:02:15)

git-committer:

Edward Z. Yang <ezyang@mit.edu> (09/20/11 23:15:31)

Message:

Suppress failed URL fetch errors.

Signed-off-by: Edward Z. Yang <ezyang@mit.edu>

File:

• perl/modules/Facebook/lib/BarnOwl/Module/Facebook/Handle.pm (modified) (2 diffs)

perl/modules/Facebook/lib/BarnOwl/Module/Facebook/Handle.pm

@@ -144 +144 @@
 }
 
-sub die_on_error {
-    my $self = shift;
-    my $error = shift;
-
-    die "$error" if $error;
-}
-
 sub poll_facebook {
     my $self = shift;
@@ -178 +171 @@
              ->as_hashref()
     };
-    $self->die_on_error($@);
+    if ($@) {
+        warn "Poll failed $@";
+        return;
+    }
 
     my $new_last_poll = $self->{last_poll};