Bump version for 5.21.12 (although it's unlikely to happen)

[perl5.git] / NetWare / interface.c

diff --git a/NetWare/interface.c b/NetWare/interface.c
index 0788e3a..29a8dc0 100644 (file)
--- a/NetWare/interface.c
+++ b/NetWare/interface.c
@@ -1,6 +1,6 @@
 
 /*
- * Copyright © 2001 Novell, Inc. All Rights Reserved.
+ * Copyright © 2001 Novell, Inc. All Rights Reserved.
  *
  * You may distribute under the terms of either the GNU General Public
  * License or the Artistic License, as specified in the README file.
@@ -126,10 +126,10 @@ int RunPerl(int argc, char **argv, char **env)
        PerlInterpreter *new_perl = NULL;               // defined in Perl.h
 
        #ifdef PERL_GLOBAL_STRUCT
-               #define PERLVAR(var,type)
-               #define PERLVARA(var,type)
-               #define PERLVARI(var,type,init) PL_Vars.var = init;
-               #define PERLVARIC(var,type,init) PL_Vars.var = init;
+               #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"