perl(k): update api calls: s/MODULE_T/MODULE2_T/

MODULE_T was obsoleted by recent changes. It was replaced by
MODULE0_T, MODULE1_T and MODULE2_T.

diff --git a/modules_k/perl/openserxs.xs b/modules_k/perl/openserxs.xs
index 4ee86b6..998b219 100644 (file)
--- a/modules_k/perl/openserxs.xs
+++ b/modules_k/perl/openserxs.xs
@@ -259,7 +259,7 @@ int moduleFunc(struct sip_msg *m, char *func,
                return -1;
        }
 
                return -1;
        }
 

-       act = mk_action(MODULE_T, 4 /* number of (type, value) pairs */,
+       act = mk_action(MODULE2_T, 4 /* number of (type, value) pairs */,

                                        MODEXP_ST, exp_func_struct, /* function */
                                        NUMBER_ST, 2,  /* parameter number */
                                        STRING_ST, argv[0], /* param. 1 */
                                        MODEXP_ST, exp_func_struct, /* function */
                                        NUMBER_ST, 2,  /* parameter number */
                                        STRING_ST, argv[0], /* param. 1 */