Add a "flags" parameter to sub_op_register()

[perl/modules/Sub-Op.git] / lib / Sub / Op.pm

diff --git a/lib/Sub/Op.pm b/lib/Sub/Op.pm
index cf67eac9e5317a8f7f984798d8fb3cbb134ca3e6..20cc912081d5e6f7ea6e7078c90d9f09c2599a09 100644 (file)
--- a/lib/Sub/Op.pm
+++ b/lib/Sub/Op.pm
@@ -56,7 +56,7 @@ In your XS file :
      c.pp      = scalar_util_reftype;
      c.check   = 0;
      c.ud      = NULL;
      c.pp      = scalar_util_reftype;
      c.check   = 0;
      c.ud      = NULL;

-     sub_op_register(aTHX_ &c);
+     sub_op_register(aTHX_ &c, 0);

     }
 
 In your Perl module file :
     }
 
 In your Perl module file :


@@ -253,7 +253,7 @@ Initializes the fields of the C<sub_op_config_t> object.
 For future compatibility, it is required to call this function with your config object before storing your actual values.
 It will store safe defaults for members you won't set.
 
 For future compatibility, it is required to call this function with your config object before storing your actual values.
 It will store safe defaults for members you won't set.
 

-=head2 C<void sub_op_register(pTHX_ const sub_op_config_t *c)>
+=head2 C<void sub_op_register(pTHX_ const sub_op_config_t *c, U32 flags)>

 
 Registers a name and its configuration into L<Sub::Op>.
 The caller is responsible for allocating and freeing the C<sub_op_config_t> object.
 
 Registers a name and its configuration into L<Sub::Op>.
 The caller is responsible for allocating and freeing the C<sub_op_config_t> object.