abstract code for C<use Foo 1.23 @ary;> into a Perl_load_module()

API function

p4raw-id: //depot/perl@5619

1 files changed, 5 insertions, 0 deletions

diff --git a/op.h b/op.h
index da03aa46db..2cc39d20bb 100644
--- a/op.h
+++ b/op.h
@@ -418,3 +418,8 @@ struct loop {
 #  define OpREFCNT_inc(o)		(o)
 #  define OpREFCNT_dec(o)		0
 #endif
+
+/* flags used by Perl_load_module() */
+#define PERL_LOADMOD_DENY		0x1
+#define PERL_LOADMOD_NOIMPORT		0x2
+#define PERL_LOADMOD_IMPORT_OPS		0x4