Avoid unused warnings from locale-less systems.

From Brian Fraser: "Technically, any Perl compiled with
-Accflags="-UUSE_LOCALE", or -Ui_locale -Ud_setlocale...
realistically, for Android".

diff --git a/locale.c b/locale.c
index 8775ce0..cf0913d 100644 (file)
--- a/locale.c
+++ b/locale.c
@@ -189,6 +189,8 @@ Perl_new_numeric(pTHX_ const char *newnum)
 
     set_numeric_radix();
 
 
     set_numeric_radix();
 

+#else
+    PERL_UNUSED_ARG(newnum);

 #endif /* USE_LOCALE_NUMERIC */
 }
 
 #endif /* USE_LOCALE_NUMERIC */
 }
 


@@ -329,6 +331,8 @@ Perl_new_collate(pTHX_ const char *newcoll)
        }
     }
 
        }
     }
 

+#else
+    PERL_UNUSED_ARG(newcoll);

 #endif /* USE_LOCALE_COLLATE */
 }
 
 #endif /* USE_LOCALE_COLLATE */
 }
 


@@ -916,6 +920,8 @@ Perl_init_i18nl10n(pTHX_ int printwarn)
     Safefree(curnum);
 #endif /* USE_LOCALE_NUMERIC */
 
     Safefree(curnum);
 #endif /* USE_LOCALE_NUMERIC */
 

+#else  /* !USE_LOCALE */
+    PERL_UNUSED_ARG(printwarn);

 #endif /* USE_LOCALE */
 
     return ok;
 #endif /* USE_LOCALE */
 
     return ok;