From 486ec47ab73770ab60bf9cfb6d398a4371463266 Mon Sep 17 00:00:00 2001
From: "Peter J. Acklam) (via RT" <perlbug-followup@perl.org>
Date: Thu, 6 Jan 2011 23:13:56 -0800
Subject: Fix typos (spelling errors) in Perl sources.

# New Ticket Created by  (Peter J. Acklam)
# Please include the string:  [perl #81904]
# in the subject line of all future correspondence about this issue.
# <URL: http://rt.perl.org/rt3/Ticket/Display.html?id=81904 >

Signed-off-by: Abigail <abigail@abigail.be>
---
 iperlsys.h | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'iperlsys.h')

diff --git a/iperlsys.h b/iperlsys.h
index 4b02cb5bfe..0bfad3ce09 100644
--- a/iperlsys.h
+++ b/iperlsys.h
@@ -316,7 +316,7 @@ struct IPerlStdIOInfo
 #define PerlSIO_fflush(f)		Fflush(f)
 #define PerlSIO_fgets(s, n, f)		fgets(s,n,f)
 #if defined(VMS) && defined(__DECC)
-     /* Unusual definition of ungetc() here to accomodate fast_sv_gets()'
+     /* Unusual definition of ungetc() here to accommodate fast_sv_gets()'
       * belief that it can mix getc/ungetc with reads from stdio buffer */
      int decc$ungetc(int __c, FILE *__stream);
 #    define PerlSIO_ungetc(c,f) ((c) == EOF ? EOF : \
-- 
cgit v1.2.1