Fix for bugs 21717 and 22140.

Win32's lseek claims to have succeeded in pipes etc. Which confuses :perlio
and derived layers. So have :unix's "pushed" method stat() the fd and 
cache non S_ISREG nature. Have Unix_seek fail if fd is NOT S_ISREG to match 
UNIX behaviour.

p4raw-id: //depot/perlio@19475

1 files changed, 1 insertions, 0 deletions

diff --git a/perliol.h b/perliol.h
index fa399e6f50..47fe6fc679 100644
--- a/perliol.h
+++ b/perliol.h
@@ -88,6 +88,7 @@ struct _PerlIO {
 #define PERLIO_F_OPEN		0x00200000
 #define PERLIO_F_FASTGETS	0x00400000
 #define PERLIO_F_TTY		0x00800000
+#define PERLIO_F_NOTREG         0x01000000   
 
 #define PerlIOBase(f)      (*(f))
 #define PerlIOSelf(f,type) ((type *)PerlIOBase(f))