Mailing-List: contact cygwin-help@cygwin.com; run by ezmlm
List-Subscribe: <mailto:cygwin-subscribe@cygwin.com>
List-Archive: <http://sources.redhat.com/ml/cygwin/>
List-Post: <mailto:cygwin@cygwin.com>
List-Help: <mailto:cygwin-help@cygwin.com>, <http://sources.redhat.com/ml/#faqs>
Sender: cygwin-owner@cygwin.com
Mail-Followup-To: cygwin@cygwin.com
Delivered-To: mailing list cygwin@cygwin.com
X-AuthUser: gerrit:koeln.convey.de
Date: Wed, 2 Apr 2003 07:32:53 +0200
From: "Gerrit P. Haase" <gp@familiehaase.de>
Organization: Esse keine toten Tiere
X-Priority: 3 (Normal)
Message-ID: <182578293952.20030402073253@familiehaase.de>
To: Rolf Campbell <rcampbell@tropicnetworks.com>
CC: cygwin@cygwin.com
Subject: Re: Updated: perl-5.8.0-2
In-Reply-To: <b6cdqm$v99$1@main.gmane.org>
References: 
 <83040F98B407E6428FEC18AC720F5D732DB804@exchange.tropicnetworks.com>
 <121-156912388.20030401120153@familiehaase.de> <b6cdqm$v99$1@main.gmane.org>
MIME-Version: 1.0
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit

Hallo Rolf,

Am Dienstag, 1. April 2003 um 18:13 schriebst du:

> Gerrit P. Haase wrote:
>> Rolf schrieb:
>>>So, is this a cygwin perl problem?  Or has the stock perl decided
>>>to only work with magic ENV variables?
>> I don't see the problem in the latest Perl (5.9.0) and I'm trying to
>> figure out how it can be fixed, in the meantime, please try to use the
>> magic PERLIO=perlio setting for your environment.
>> Gerrit

> Ok, using PERLIO=perlio, but I'm still having a problem (which worked in 
> the previous version of Perl).

> TEST.PL:
> 1:#!/bin/perl
> 2:$/ = "\r\n";
> 3:
> 4:open( LOG, "<in" ) ||
> 5:  die "Could not open log.\n";
> 6:binmode LOG, ":crlf";
> 7:
> 8:$in = <LOG>;
> 9:print $in;

> in (od -c in):
> 0000000   a   b   c  \r  \n   d   e   f  \r  \n
> 0000012

> This is on a BINMODE mount.  This script outputs "0000000   a   b   c 
> \n   d   e   f  \n".  If I go back to prev Perl, OR remove line#2 OR 
> remove line#6, then it outputs "0000000   a   b   c  \n"

1. No PERLIO setting:

$ od -c in
0000000   a   b   c  \r  \n   a   b   c  \r  \n
0000012

$ ./crlf.pl 2>&1 | tee log.in
abc
abc

$ od -c log.in
0000000   a   b   c  \r  \n   a   b   c  \r  \n
0000012

2. PERLIO=perlio:

$ export PERLIO=perlio

$ ./crlf.pl 2>&1 | tee log.in
abc
abc

$ od -c log.in
0000000   a   b   c  \n   a   b   c  \n
0000010


3. PERLIO=raw:

$ export PERLIO=raw

$ ./crlf.pl 2>&1 | tee log.in
abc
abc

$ od -c log.in
0000000   a   b   c  \n   a   b   c  \n
0000010

4. PERLIO=stdio:

$ export PERLIO=stdio

$ ./crlf.pl 2>&1 | tee log.in
abc
abc

$ od -c log.in
0000000   a   b   c  \n   a   b   c  \n
0000010

5. PERLIO=:

$ export PERLIO=

$ ./crlf.pl 2>&1 | tee log.in
abc
abc

$ od -c log.in
0000000   a   b   c  \r  \n   a   b   c  \r  \n
0000012


Gerrit
-- 
=^..^=


--
Unsubscribe info:      http://cygwin.com/ml/#unsubscribe-simple
Bug reporting:         http://cygwin.com/bugs.html
Documentation:         http://cygwin.com/docs.html
FAQ:                   http://cygwin.com/faq/