Changes in perlglue.xs [9c7a701:b67ab6b]

File:

• perlglue.xs (modified) (1 diff)

perlglue.xs

@@ -256 +256 @@
 
 void
-_create_style(name, function, description)
+create_style(name, object)
      char *name
-     char *function
-     char *description
+     SV  *object
      PREINIT:
-                /* This is to allow us to bootstrap the default style before the
-                command architecture has been initialized */
                 owl_style *s;
      CODE:
         {
                 s = owl_malloc(sizeof(owl_style));
-                owl_style_create_perl(s, name, function, description);
+                owl_style_create_perl(s, name, object);
                 owl_global_add_style(&g, s);
         }