Make sure latest Perl versions don't interpret some generated C array as Perl
[openssl.git] / rsaref / rsar_err.c
index b77f3e7..3ba9027 100644 (file)
@@ -60,6 +60,7 @@
 #include "rsaref.h"
 
 /* BEGIN ERROR CODES */
+#ifndef NO_ERR
 static ERR_STRING_DATA RSAREF_str_functs[]=
        {
 {ERR_PACK(0,RSAREF_F_BN_REF_MOD_EXP,0),        "BN_REF_MOD_EXP"},
@@ -111,6 +112,8 @@ static ERR_STRING_DATA RSAREF_str_reasons[]=
 {0,NULL},
        };
 
+#endif
+
 void ERR_load_RSAREF_strings()
        {
        static int init=1;
@@ -118,7 +121,10 @@ void ERR_load_RSAREF_strings()
        if (init)
                {
                init=0;
+#ifndef NO_ERR
                ERR_load_strings(ERR_LIB_RSAREF,RSAREF_str_functs);
                ERR_load_strings(ERR_LIB_RSAREF,RSAREF_str_reasons);
+#endif
+
                }
        }