X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=lib%2FSub%2FOp.pm;h=6459b04c3b64a6977746d416ee9c17cae833da23;hb=fa4378c8262b5f0d476bb0af2d52551dc3fe0cc0;hp=dbcdcd2a46ff0582efb085169afdacbc92a50198;hpb=dcefaa0f0b52b7ec82ad4fd5547d320a419ca1a9;p=perl%2Fmodules%2FSub-Op.git

diff --git a/lib/Sub/Op.pm b/lib/Sub/Op.pm
index dbcdcd2..6459b04 100644
--- a/lib/Sub/Op.pm
+++ b/lib/Sub/Op.pm
@@ -52,8 +52,9 @@ In your XS file :
      sub_op_keyword k;
      k.name  = "reftype";
      k.len   = sizeof("reftype")-1;
-     k.check = 0;
      k.pp    = scalar_util_reftype;
+     k.check = 0;
+     k.ud    = NULL;
      sub_op_register(aTHX_ &k);
     }
 
@@ -116,8 +117,6 @@ my $sw = Variable::Magic::wizard(
   my $pkg = $data->{pkg};
   my $fqn = join '::', $pkg, $name;
 
-  _incoming($name, $pkg);
-
   no strict 'refs';
   *$fqn = $placeholder unless exists &$fqn;