fix leak in APItest.xs

[perl5.git] / perliol.h

diff --git a/perliol.h b/perliol.h
index d15c937..40b4224 100644 (file)
--- a/perliol.h
+++ b/perliol.h
@@ -1,5 +1,5 @@
-#ifndef _PERLIOL_H
-#define _PERLIOL_H
+#ifndef PERLIOL_H_
+#define PERLIOL_H_
 
 typedef struct {
     PerlIO_funcs *funcs;
@@ -286,7 +286,7 @@ PERL_CALLCONV SSize_t   PerlIOUnix_write(pTHX_ PerlIO *f, const void *vbuf, Size
 /* Utf8 */
 PERL_CALLCONV IV        PerlIOUtf8_pushed(pTHX_ PerlIO *f, const char *mode, SV *arg, PerlIO_funcs *tab);
 
-#endif                         /* _PERLIOL_H */
+#endif                         /* PERLIOL_H_ */
 
 /*
  * ex: set ts=8 sts=4 sw=4 et: