From: Dan Sugalski <sugalskd@osshe.edu>

	Date: Mon, 05 Apr 1999 15:38:42 -0700
	Message-Id: <3.0.6.32.19990405153842.0367b650@ous.edu>
	Subject: Re: chomp fails with $/ in fixed-length record mode
	--
	From: Roderick Schertler <roderick@argon.org>
	Date: Tue, 06 Apr 1999 21:11:37 -0400
	Message-ID: <2795.923447497@eeyore.ibcinc.com>
	Subject: Re: chomp fails with $/ in fixed-length record mode

p4raw-id: //depot/perl@3319

1 files changed, 2 insertions, 0 deletions

diff --git a/doop.c b/doop.c
index b93223fc49..ccabba1357 100644
--- a/doop.c
+++ b/doop.c
@@ -831,6 +831,8 @@ do_chomp(register SV *sv)
 
     if (RsSNARF(PL_rs))
 	return 0;
+    if (RsRECORD(PL_rs))
+      return 0;
     count = 0;
     if (SvTYPE(sv) == SVt_PVAV) {
 	register I32 i;