Changeset 374089a for perl/lib/BarnOwl.pm

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

File:

• perl/lib/BarnOwl.pm (modified) (1 diff)

perl/lib/BarnOwl.pm

@@ -93 +93 @@
 command line, and C<MESSAGE> is the zephyr body to send.
 
+=cut
+
+sub zephyr_zwrite {
+    my ($command, $message) = @_;
+    my $ret = BarnOwl::Internal::zephyr_zwrite($command, $message);
+    die "Error sending zephyr" unless $ret == 0;
+}
+
 =head2 ztext_stylestrip STRING