1 files changed, 36 insertions, 0 deletions
diff --git a/libc/stdio/perror.c b/libc/stdio/perror.c
new file mode 100644
index 000000000..83db7689f
--- /dev/null
+++ b/libc/stdio/perror.c
@@ -0,0 +1,36 @@
+/* Copyright (C) 2004       Manuel Novoa III    <mjn3@codepoet.org>
+ *
+ * GNU Library General Public License (LGPL) version 2 or later.
+ *
+ * Dedicated to Toni.  See uClibc/DEDICATION.mjn3 for details.
+ */
+
+#include "_stdio.h"
+
+#ifdef __UCLIBC_MJN3_ONLY__
+#warning CONSIDER: Increase buffer size for error message (non-%m case)?
+#endif
+
+void perror(register const char *s)
+{
+	/* If the program is calling perror, it's a safe bet that printf and
+	 * friends are used as well.  It is also possible that the calling
+	 * program could buffer stderr, or reassign it. */
+
+	register const char *sep;
+
+	sep = ": ";
+	if (!(s && *s)) {			/* Caller did not supply a prefix message */
+		s = (sep += 2);			/* or passed an empty string. */
+	}
+
+#ifdef __UCLIBC_HAS_PRINTF_M_SPEC__
+	fprintf(stderr, "%s%s%m\n", s, sep); /* Use the gnu %m feature. */
+#else
+	{
+		char buf[64];
+		fprintf(stderr, "%s%s%s\n", s, sep,
+				_glibc_strerror_r(errno, buf, sizeof(buf)));
+	}
+#endif
+}