Mailing-List:	contact cygwin-help AT cygwin DOT com; run by ezmlm
List-Subscribe:	<mailto:cygwin-subscribe AT cygwin DOT com>
List-Archive:	<http://sources.redhat.com/ml/cygwin/>
List-Post:	<mailto:cygwin AT cygwin DOT com>
List-Help:	<mailto:cygwin-help AT cygwin DOT com>, <http://sources.redhat.com/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
Date:	Sat, 31 May 2003 23:00:42 +0800
From:	Greg Matheson <lang AT ms DOT chinmin DOT edu DOT tw>
To:	cygwin AT cygwin DOT com
Subject:	Re: Should PERLIO=no_crlf be the default on Cygwin?
Message-ID:	<20030531230042.A31829@ms.chinmin.edu.tw>
Mail-Followup-To:	cygwin AT cygwin DOT com
References:	<001601c324fc$16d4f700$6500a8c0 AT ufo> <002901c32504$947701f0$78d96f83 AT pomello> <68785452711 DOT 20030530171948 AT familiehaase DOT de> <20030531065029 DOT A27011 AT ms DOT chinmin DOT edu DOT tw> <0855760618 DOT 20030531125136 AT familiehaase DOT de>
Mime-Version:	1.0
User-Agent:	Mutt/1.2.5i
In-Reply-To:	<0855760618.20030531125136@familiehaase.de>; from gp@familiehaase.de on Sat, May 31, 2003 at 12:51:36 +0200

On Sat, 31 May 2003, Gerrit P. Haase wrote:

> #!/usr/bin/perl
> open OUTFILE, ">:crlf", "text.txt";
> print OUTFILE "This is a test.\n";
> close OUTFILE;

Oh, yeh. That works.

greg AT 7106 ~
$ perl -e 'open OUTFILE,">:crlf","text.txt";print OUTFILE "\n";' ; cat text.txt|od -a
0000000  cr  nl
0000002

greg AT 7106 ~
$ perl -e 'open OUTFILE,">:bytes","text.txt";print OUTFILE "\n";' ; cat text.txt|od -a
0000000  nl
0000001

Oops. 

greg AT 7106 ~
$ export PERLIO=bytes

greg AT 7106 ~
$ perl -e 'open STDOUT,">:crlf",">&1"'

produced a segfault.

And now the first of those one-liners above is also producing segfaults:

This GDB was configured as "i686-pc-cygwin"...(no debugging symbols found)...
Attaching to program `/usr/bin/PERL.EXE', process -15762415
[Switching to thread -15762415.0xfff2697d]
(gdb) bt
#0  0xbff76921 in KERNEL32!CallNamedPipeW ()
#1  0xbff88027 in KERNEL32!BuildCommDCBA ()
#2  0x100fe8af in cygperl5_8_0!PerlIO_openn () from /usr/bin/cygperl5_8_0.dll
#3  0x100dc088 in cygperl5_8_0!Perl_do_openn () from /usr/bin/cygperl5_8_0.dll
#4  0x100c8ee3 in cygperl5_8_0!Perl_pp_open () from /usr/bin/cygperl5_8_0.dll
#5  0x100787fd in cygperl5_8_0!Perl_runops_debug () from /usr/bin/cygperl5_8_0.dll
#6  0x10004697 in perl_run () from /usr/bin/cygperl5_8_0.dll
#7  0x10004355 in perl_run () from /usr/bin/cygperl5_8_0.dll
#8  0x0040113d in ?? ()
#9  0x61007408 in cygwin1!__assert () from /usr/bin/CYGWIN1.DLL
#10 0x610076ed in dll_crt0 AT 0 () from /usr/bin/CYGWIN1.DLL
#11 0x00403ed2 in ?? ()
#12 0x0040103c in ?? ()
#13 0xbff8b6be in KERNEL32!EnumTimeFormatsA ()
#14 0xbff8b570 in KERNEL32!FT_Thunk ()
#15 0xbff89f33 in KERNEL32!BeginUpdateResourceA ()
Cannot access memory at address 0x83b51fec

-- 
Greg Matheson            Failed to turn my reluctant students into autonomous
Dr Bean's Penpal Pool    language learners, but it did wonders for my personal
Address: palpool         fitness program.
Domain:  @cn91.chinmin.edu.tw

--
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 -