This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
locale.c: Add macro
authorKarl Williamson <khw@cpan.org>
Mon, 11 Sep 2017 23:19:05 +0000 (17:19 -0600)
committerKarl Williamson <khw@cpan.org>
Thu, 9 Nov 2017 03:52:52 +0000 (20:52 -0700)
This adds STRLENs() where the argument must be a literal string
constant.

This may deserve wider applicability, but in case it doesn't, I'm making
it local to just this file.

locale.c

index 9e9d4e6..3d68958 100644 (file)
--- a/locale.c
+++ b/locale.c
@@ -55,6 +55,10 @@ static bool debug_initialization = FALSE;
 #  endif
 #endif
 
+/* strlen() of a literal string constant.  XXX We might want this more general,
+ * but using it in just this file for now */
+#define STRLENs(s)  (sizeof("" s "") - 1)
+
 #ifdef USE_LOCALE
 
 /*