nl_langinfo code can be negative.

Coverity CID 104814.
Perl · Jun 27, 2015 · 0c82d9a · 0c82d9a
1 parent e80fee2
commit 0c82d9a
Showing 1 changed file with 6 additions and 1 deletion.
diff --git a/ext/I18N-Langinfo/Langinfo.xs b/ext/I18N-Langinfo/Langinfo.xs
@@ -23,7 +23,12 @@ langinfo(code)
   PROTOTYPE: _
   CODE:
 #ifdef HAS_NL_LANGINFO
-	RETVAL = newSVpv(nl_langinfo(code), 0);
+	if (code < 0) {
+	    SETERRNO(EINVAL, LIB_INVARG);
+	    RETVAL = &PL_sv_undef;
+	} else {
+            RETVAL = newSVpv(nl_langinfo(code), 0);
+        }
 #else
 	croak("nl_langinfo() not implemented on this architecture");
 #endif