Changeset 374089a


Ignore:
Timestamp:
Jan 12, 2013, 7:07:34 PM (12 years ago)
Author:
Jason Gross <jgross@mit.edu>
Branches:
master, release-1.10
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
Files:
2 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
  • perlglue.xs

    rb303ba2 r374089a  
    9696                RETVAL
    9797
    98 void
    99 zephyr_zwrite(cmd,msg)
    100         const char *cmd
    101         const char *msg
    102         PREINIT:
    103                 int i;
    104         CODE:
    105                 i = owl_zwrite_create_and_send_from_line(cmd, msg);
    106 
    10798const utf8 *
    10899ztext_stylestrip(ztext)
     
    475466        }
    476467
     468int
     469zephyr_zwrite(cmd,msg)
     470        const char *cmd
     471        const char *msg
     472        CODE:
     473                RETVAL = owl_zwrite_create_and_send_from_line(cmd, msg);
     474        OUTPUT:
     475                RETVAL
     476
    477477MODULE = BarnOwl                PACKAGE = BarnOwl::Editwin
    478478
Note: See TracChangeset for help on using the changeset viewer.