From 04892f7878d91125ce226bdf0d4e698521c1dfc5 Mon Sep 17 00:00:00 2001 From: Nick Ing-Simmons Date: Mon, 31 Dec 2001 12:40:50 +0000 Subject: perlio.c cleanup - in particular avoid accidental PerlIO_flush(NULL) if PerlIONext is NULL. p4raw-id: //depot/perlio@13975 --- perliol.h | 1 + 1 file changed, 1 insertion(+) (limited to 'perliol.h') diff --git a/perliol.h b/perliol.h index 487a7ff164..331cb9514c 100644 --- a/perliol.h +++ b/perliol.h @@ -90,6 +90,7 @@ struct _PerlIO { #define PerlIOBase(f) (*(f)) #define PerlIOSelf(f,type) ((type *)PerlIOBase(f)) #define PerlIONext(f) (&(PerlIOBase(f)->next)) +#define PerlIOValid(f) ((f) && *(f)) /*--------------------------------------------------------------------------------------*/ /* Data exports - EXT rather than extern is needed for Cygwin */ -- cgit v1.2.1