Changes in perlglue.xs [5791bf7:6f0fbe9]

File:

• perlglue.xs (modified) (6 diffs)

perlglue.xs

@@ -140 +140 @@
                 if (rv) owl_free(rv);
 
-void
-queue_message(msg)
+void queue_message(msg) 
         SV *msg
         PREINIT:
@@ -156 +155 @@
         }
 
-void
-admin_message(header, body)
+void admin_message(header, body) 
         const char *header
         const char *body
@@ -165 +163 @@
         }
 
-void
-start_question(line, callback)
+void start_question(line, callback)
         const char *line
         SV *callback
@@ -181 +178 @@
         }
 
-void
-start_password(line, callback)
+void start_password(line, callback)
         const char *line
         SV *callback
@@ -197 +193 @@
         }
 
-void
-start_edit_win(line, callback)
+void start_edit_win(line, callback)
         const char *line
         SV *callback
@@ -439 +434 @@
 
 
+MODULE = BarnOwl                PACKAGE = BarnOwl::Zephyr
+
+int
+have_zephyr()
+        CODE:
+                RETVAL = owl_global_is_havezephyr(&g);
+        OUTPUT:
+                RETVAL
 
 MODULE = BarnOwl                PACKAGE = BarnOwl::Internal