Import sources from 2011-03-30 iso image

1 files changed, 11 insertions, 0 deletions

diff --git a/sys/src/ape/lib/ap/stdio/perror.c b/sys/src/ape/lib/ap/stdio/perror.c
new file mode 100755
index 000000000..71f5c41f0
--- /dev/null
+++ b/sys/src/ape/lib/ap/stdio/perror.c
@@ -0,0 +1,11 @@
+/*
+ * pANS stdio -- perror
+ */
+#include "iolib.h"
+void perror(const char *s){
+	extern int errno;
+	if(s!=NULL && *s != '\0') fputs(s, stderr), fputs(": ", stderr);
+	fputs(strerror(errno), stderr);
+	putc('\n', stderr);
+	fflush(stderr);
+}