1 files changed, 1 insertions, 1 deletions
diff --git a/doio.c b/doio.c
index d1bc72c76c..52b64d932e 100644
--- a/doio.c
+++ b/doio.c
@@ -354,7 +354,7 @@ Perl_do_openn(pTHX_ GV *gv, register const char *oname, I32 len, int as_raw,
 #ifdef USE_SFIO
 			    /* sfio fails to clear error on next
 			       sfwrite, contrary to documentation.
-			       -- Nick Clark */
+			       -- Nicholas Clark */
 			    if (PerlIO_seek(that_fp, 0, SEEK_CUR) == -1)
 				PerlIO_clearerr(that_fp);
 #endif