diff options
Diffstat (limited to 'NetWare')
| -rw-r--r-- | NetWare/Makefile | 1 | ||||
| -rw-r--r-- | NetWare/interface.c | 14 | ||||
| -rw-r--r-- | NetWare/interface.cpp | 13 |
3 files changed, 0 insertions, 28 deletions
diff --git a/NetWare/Makefile b/NetWare/Makefile index 8b6b71c743..07d31f0e12 100644 --- a/NetWare/Makefile +++ b/NetWare/Makefile @@ -701,7 +701,6 @@ MICROCORE_SRC = \ ..\numeric.c \ ..\op.c \ ..\perl.c \ - ..\perlapi.c \ ..\perly.c \ ..\pp.c \ ..\pp_ctl.c \ diff --git a/NetWare/interface.c b/NetWare/interface.c index 1d298854c9..be3eddf149 100644 --- a/NetWare/interface.c +++ b/NetWare/interface.c @@ -125,20 +125,6 @@ int RunPerl(int argc, char **argv, char **env) PerlInterpreter *my_perl = NULL; // defined in Perl.h PerlInterpreter *new_perl = NULL; // defined in Perl.h - #ifdef PERL_GLOBAL_STRUCT - #define PERLVAR(prefix,var,type) - #define PERLVARA(prefix,var,type) - #define PERLVARI(prefix,var,type,init) PL_Vars.prefix##var = init; - #define PERLVARIC(prefix,var,type,init) PL_Vars.prefix##var = init; - - #include "perlvars.h" - - #undef PERLVAR - #undef PERLVARA - #undef PERLVARI - #undef PERLVARIC - #endif - PERL_SYS_INIT(&argc, &argv); if (!(my_perl = perl_alloc())) // Allocate memory for Perl. diff --git a/NetWare/interface.cpp b/NetWare/interface.cpp index b08d6c249e..b9795b3e71 100644 --- a/NetWare/interface.cpp +++ b/NetWare/interface.cpp @@ -120,19 +120,6 @@ int RunPerl(int argc, char **argv, char **env) PerlInterpreter *new_perl = NULL; // defined in Perl.h //__asm{int 3}; - #ifdef PERL_GLOBAL_STRUCT - #define PERLVAR(prefix,var,type) - #define PERLVARA(prefix,var,type) - #define PERLVARI(prefix,var,type,init) PL_Vars.prefix##var = init; - #define PERLVARIC(prefix,var,type,init) PL_Vars.prefix##var = init; - - #include "perlvars.h" - - #undef PERLVAR - #undef PERLVARA - #undef PERLVARI - #undef PERLVARIC - #endif PERL_SYS_INIT(&argc, &argv); |