Mangled patch, needed hand-tweaks, along with binmode for rs.t:

	Message-Id: <3.0.5.32.19980605110840.009e12b0@ous.edu>
	Subject: Re: [PATCH 5.004_66]Add record read capability to <>

p4raw-id: //depot/perl@1099

1 files changed, 25 insertions, 0 deletions

diff --git a/sv.c b/sv.c
index f5a979a1c3..023693f7b0 100644
--- a/sv.c
+++ b/sv.c
@@ -3153,6 +3153,31 @@ sv_gets(register SV *sv, register PerlIO *fp, I32 append)
 	rsptr = NULL;
 	rslen = 0;
     }
+    else if (RsRECORD(rs)) {
+      I32 recsize, bytesread;
+      char *buffer;
+
+      /* Grab the size of the record we're getting */
+      recsize = SvIV(SvRV(rs));
+      (void)SvPOK_only(sv);    /* Validate pointer */
+      /* Make sure we've got the room to yank in the whole thing */
+      if (SvLEN(sv) <= recsize + 3) {
+        /* No, so make it bigger */
+        SvGROW(sv, recsize + 3);
+      }
+      buffer = SvPVX(sv); /* Get the location of the final buffer */
+      /* Go yank in */
+#ifdef VMS
+      /* VMS wants read instead of fread, because fread doesn't respect */
+      /* RMS record boundaries. This is not necessarily a good thing to be */
+      /* doing, but we've got no other real choice */
+      bytesread = PerlLIO_read(PerlIO_fileno(fp), buffer, recsize);
+#else
+      bytesread = PerlIO_read(fp, buffer, recsize);
+#endif
+      SvCUR_set(sv, bytesread);
+      return(SvCUR(sv) ? SvPVX(sv) : Nullch);
+    }
     else if (RsPARA(rs)) {
 	rsptr = "\n\n";
 	rslen = 2;