1 /* 2 * pANS stdio -- perror 3 */ 4 #include "iolib.h" 5 void perror(const char *s){ 6 extern int errno; 7 if(s!=NULL) fputs(s, stderr), fputs(": ", stderr); 8 fputs(strerror(errno), stderr); 9 putc('\n', stderr); 10 fflush(stderr); 11 } 12