In In S_scan_heredoc(), avoid memNE() reading beyond the end of s.

[perl5.git] / iperlsys.h

diff --git a/iperlsys.h b/iperlsys.h
index 4b02cb5..b23f4d3 100644 (file)
--- 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 : \
@@ -1416,8 +1416,8 @@ struct IPerlSockInfo
  * Local variables:
  * c-indentation-style: bsd
  * c-basic-offset: 4
- * indent-tabs-mode: t
+ * indent-tabs-mode: nil
  * End:
  *
- * ex: set ts=8 sts=4 sw=4 noet:
+ * ex: set ts=8 sts=4 sw=4 et:
  */