From a15cef0c498d0b84ecf118ac9b0a6f383dfcf79d Mon Sep 17 00:00:00 2001
From: "Craig A. Berry" <craigberry@mac.com>
Date: Sat, 26 May 2001 04:34:11 -0500
Subject: PerlIO for VMS Message-Id: <a05100e0ab734816701a5@[172.16.52.1]>

p4raw-id: //depot/perl@10218
---
 perlsdio.h | 1 +
 1 file changed, 1 insertion(+)

(limited to 'perlsdio.h')

diff --git a/perlsdio.h b/perlsdio.h
index fd990c06d8..da45c32714 100644
--- a/perlsdio.h
+++ b/perlsdio.h
@@ -15,6 +15,7 @@
 #define PerlIO_stdoutf			printf
 #define PerlIO_vprintf(f,fmt,a)		vfprintf(f,fmt,a)
 #define PerlIO_write(f,buf,count)	fwrite1(buf,1,count,f)
+#define PerlIO_unread(f,buf,count)	(-1)
 #define PerlIO_open			fopen
 #define PerlIO_fdopen			fdopen
 #define PerlIO_reopen			freopen
-- 
cgit v1.2.1