Switch to qw<>

[perl/modules/re-engine-Plugin.git] / Plugin.h

diff --git a/Plugin.h b/Plugin.h
index 109854ad2d518be15f5a45cbb9777247cd3d7bc1..ff8b42eed155f1d4c577618d03a81112c2273388 100644 (file)
--- a/Plugin.h
+++ b/Plugin.h
@@ -4,10 +4,10 @@
 
 /* re__engine__Plugin self; SELF_FROM_PPRIVATE(self,rx->pprivate) */
 #define SELF_FROM_PPRIVATE(self, pprivate)                   \
-       if (sv_isobject(pprivate)) {                             \
+    if (sv_isobject(pprivate)) {                             \
         SV * ref = SvRV((SV*)pprivate);                      \
-           IV tmp = SvIV((SV*)ref);                             \
-           self = INT2PTR(re__engine__Plugin,tmp);              \
+        IV tmp = SvIV((SV*)ref);                             \
+        self = INT2PTR(re__engine__Plugin,tmp);              \
     } else {                                                 \
         Perl_croak(aTHX_ "Not an object");                   \
     }
@@ -77,10 +77,8 @@ typedef struct replug {
     /* The ->stash */
     SV * stash;
 
-    /*
-     * Callbacks
-     */
-
+    /* Callbacks */
+    SV * cb_exec;
     SV * cb_free;
 
     /* ->num_captures */