Changeset 7975229


Ignore:
Timestamp:
Nov 17, 2013, 3:44:13 AM (9 years ago)
Author:
Anders Kaseorg <andersk@mit.edu>
Branches:
release-1.9
Children:
1cefe5f
Parents:
017bf98
git-author:
Jason Gross <jgross@mit.edu> (01/12/13 15:42:56)
git-committer:
Anders Kaseorg <andersk@mit.edu> (11/17/13 03:44:13)
Message:
Die on a failed zephyr_zwrite; don't silently ignore it

(cherry picked from commit 374089acfb4f43fdb00e90ec924887d88fd84f5d)
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • perl/lib/BarnOwl.pm

    rb303ba2 r7975229  
    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 r7975229  
    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.