Mailing-List:	contact cygwin-help AT cygwin DOT com; run by ezmlm
List-Subscribe:	<mailto:cygwin-subscribe AT cygwin DOT com>
List-Archive:	<http://sourceware.org/ml/cygwin/>
List-Post:	<mailto:cygwin AT cygwin DOT com>
List-Help:	<mailto:cygwin-help AT cygwin DOT com>, <http://sourceware.org/ml/#faqs>
Sender:	cygwin-owner AT cygwin DOT com
Mail-Followup-To:	cygwin AT cygwin DOT com
Delivered-To:	mailing list cygwin AT cygwin DOT com
Message-ID:	<418A9BF3.5010903@familiehaase.de>
Date:	Thu, 04 Nov 2004 22:15:31 +0100
From:	"Gerrit P. Haase" <gp AT familiehaase DOT de>
Organization:	Esse keine toten Tiere
User-Agent:	Mozilla/5.0 (Windows; U; WinNT4.0; de-AT; rv:1.7.3) Gecko/20040910
MIME-Version:	1.0
To:	Earl Chew <earl_chew AT agilent DOT com>
CC:	cygwin AT cygwin DOT com
Subject:	Re: Perl binmode problem on text mount
References:	<41897FF4 DOT 1080501 AT agilent DOT com>
In-Reply-To:	<41897FF4.1080501@agilent.com>
X-IsSubscribed:	yes

Earl Chew wrote:

> This code used to work on Perl 5.6.1-2 on Cygwin 1.3.10.
> 
> I've now moved to Perl 5.8.5-3 on Cygwin 1.5.11.
> 
> Here is the Perl program:
> 
>     binmode STDOUT;
>     print "Hello\n";
> 
> 1. Output to file on text mount
> 
>     perl foo.pl > foo.txt ; od -c foo.txt
> 
>     0000000  H e l l o \r \n    # Perl 5.8.5-3 Cygwin 1.5.11
>     0000000  H e l l o \n        # Perl 5.6.1-2 Cygwin 1.3.10
> 
> 2. Output to file via cat
> 
>     perl foo.pl | cat > foo.txt ; od -c foo.txt
> 
>     0000000  H e l l o \n        # Perl 5.8.5-3 Cygwin 1.5.11
>     0000000  H e l l o \n        # Perl 5.6.1-2 Cygwin 1.3.10
> 
> Has anyone else experienced the same issue?

Actually it is not perl writing \r here:

$ perl ./binmode.pl | od -c
0000000   H   e   l   l   o  \n
0000006

Gerrit
-- 
=^..^=

--
Unsubscribe info:      http://cygwin.com/ml/#unsubscribe-simple
Problem reports:       http://cygwin.com/problems.html
Documentation:         http://cygwin.com/docs.html
FAQ:                   http://cygwin.com/faq/

- Raw text -