Changeset de3b1d3 for perl

Timestamp:

Jan 12, 2013, 7:07:51 PM (11 years ago)

Author:

Jason Gross <jasongross9@gmail.com>

Parents:

8258ea5 (diff), c068c03 (diff)
Note: this is a merge changeset, the changes displayed below correspond to the merge itself.
Use the (diff) links above to see all the changes relative to each parent.

Message:

Merge c068c0307a85727dd3ad619122a640f96399d627 into 8258ea514c05b11da3f68d25d8414e222496fa2d

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