Changeset 374089a for perl


Ignore:
Timestamp:
Jan 12, 2013, 7:07:34 PM (9 years ago)
Author:
Jason Gross <jgross@mit.edu>
Branches:
master
Children:
c068c03
Parents:
d72ba1e
git-author:
Jason Gross <jgross@mit.edu> (01/12/13 15:42:56)
git-committer:
Jason Gross <jgross@mit.edu> (01/12/13 19:07:34)
Message:
Die on a failed zephyr_zwrite; don't silently ignore it
File:
1 edited

Legend:

Unmodified
Added
Removed
  • perl/lib/BarnOwl.pm

    rb303ba2 r374089a  
    9393command line, and C<MESSAGE> is the zephyr body to send.
    9494
     95=cut
     96
     97sub zephyr_zwrite {
     98    my ($command, $message) = @_;
     99    my $ret = BarnOwl::Internal::zephyr_zwrite($command, $message);
     100    die "Error sending zephyr" unless $ret == 0;
     101}
     102
    95103=head2 ztext_stylestrip STRING
    96104
Note: See TracChangeset for help on using the changeset viewer.