Changeset 00adc24 for perl


Ignore:
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:
1 edited

Legend:

Unmodified
Added
Removed
  • perl/modules/Facebook/lib/BarnOwl/Module/Facebook/Handle.pm

    r67f6d7d r00adc24  
    144144}
    145145
    146 sub die_on_error {
    147     my $self = shift;
    148     my $error = shift;
    149 
    150     die "$error" if $error;
    151 }
    152 
    153146sub poll_facebook {
    154147    my $self = shift;
     
    178171             ->as_hashref()
    179172    };
    180     $self->die_on_error($@);
     173    if ($@) {
     174        warn "Poll failed $@";
     175        return;
     176    }
    181177
    182178    my $new_last_poll = $self->{last_poll};
Note: See TracChangeset for help on using the changeset viewer.