Changeset 348cffc

Timestamp:

Jun 22, 2011, 9:56:47 PM (13 years ago)

Author:

Edward Z. Yang <ezyang@mit.edu>

Children:

68fa539

Parents:

f134488

git-author:

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

git-committer:

Edward Z. Yang <ezyang@mit.edu> (06/22/11 21:56:47)

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};