Changeset 00adc24 for perl

Timestamp:

Sep 19, 2011, 1:31:34 PM (13 years ago)

Author:

Edward Z. Yang <ezyang@mit.edu>

Children:

c833c3d

Parents:

67f6d7d

git-author:

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

git-committer:

Edward Z. Yang <ezyang@mit.edu> (09/19/11 13:31:34)

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