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
Delivered-To:	mailing list cygwin AT cygwin DOT com
X-Mailer:	21.4 (patch 6) "Common Lisp (candidate 1)" XEmacs Lucid (via feedmail 10 I)
To:	cygwin AT cygwin DOT com
Subject:	Re: bug in cygwin perl 5.6.1?
References:	<LAW2-OE14zjwakzNFfh00000a63 AT hotmail DOT com>
	<3C5DB3B8 DOT 25163 DOT 219A3CC AT localhost> <20020203212921 DOT GA31365 AT redhat DOT com>
	<kvheoxv520 DOT fsf AT vzell DOT de DOT oracle DOT com>
X-Face:	I-*}xvwusAv%MlABo'jVNP7TDXf5bb*L[q,r{DnsR1GoL07^Wf)sAu%>!LjXAFlZZN+`OQu
	}?#du]C)[*%ERKR#+l#sX'EoNbSO~|.x AT ogoS5|"-u?<s5ViLslvYMlj7_n!Tq1m AT xt2Bhj4[Zg+e?
	/Yy\SE`V?%v~kRU3GoS1f&U]}
From:	"Dr. Volker Zell" <Dr DOT Volker DOT Zell AT oracle DOT com>
Date:	Mon, 04 Feb 2002 13:27:11 +0100
In-Reply-To:	<kvheoxv520.fsf@vzell.de.oracle.com> ("Dr. Volker Zell"'s
	message of "Mon, 04 Feb 2002 12:51:03 +0100")
Message-ID:	<kv8za9v3ds.fsf@vzell.de.oracle.com>
Lines:	68
User-Agent:	Gnus/5.090005 (Oort Gnus v0.05) XEmacs/21.4 (Common Lisp
	(candidate 1), i686-pc-cygwin)
MIME-Version:	1.0

>>>>> "Volker" == Volker Zell <Dr.> writes:

>>>>> "Christopher" == Christopher Faylor <cgf AT redhat DOT com> writes:
    Christopher> perl -e 'print $^S || 0, "\n";eval {print $^S || 0, "\n"}; print $^S || 0, "\n";'

    Christopher> This should print:

    Christopher> 0
    Christopher> 1
    Christopher> 0

    Christopher> Instead, it prints:

    Christopher> 0
    Christopher> 1
    Christopher> 1

    Volker> Here it gives:

    Volker> 08:41pm [500]> perl -e 'print $^S || 0, "\n";eval {print $^S || 0, "\n"}; print $^S || 0, "\n";'
    Volker> 0
    Volker> 1
    Volker> 0

OOps, I missed the fact that I was still using my own build of perl in /usr/local.

Summary of my perl5 (revision 5.0 version 6 subversion 0) configuration:
  Platform:
    osname=cygwin, osvers=1.1.4(0.2632), archname=cygwin
    uname='cygwin_nt-4.0 vzell 1.1.4(0.2632) 2000-08-03 20:53 i686 unknown '
    config_args='-d'
    hint=recommended, useposix=true, d_sigaction=define
    usethreads=undef use5005threads=undef useithreads=undef usemultiplicity=undef
    useperlio=undef d_sfio=undef uselargefiles=define 
    use64bitint=undef use64bitall=undef uselongdouble=undef usesocks=undef
  Compiler:
    cc='gcc', optimize='-O', gccversion=2.95.2 19991024 (release-2)
    cppflags='-fno-strict-aliasing -I/usr/local/include'
    ccflags ='-fno-strict-aliasing -I/usr/local/include'
    stdchar='char', d_stdstdio=undef, usevfork=false
    intsize=4, longsize=4, ptrsize=4, doublesize=8
    d_longlong=define, longlongsize=8, d_longdbl=define, longdblsize=12
    ivtype='long', ivsize=4, nvtype='double', nvsize=8, Off_t='off_t', lseeksize=4
    alignbytes=8, usemymalloc=y, prototype=define
  Linker and Libraries:
    ld='ld2', ldflags =' -s -L/usr/local/lib'
    libpth=/usr/local/lib /usr/lib /lib
    libs=-lgdbm -ldb -lm -lcrypt -lcygipc -lcygwin -lkernel32
    libc=/usr/lib/libc.a, so=dll, useshrplib=true, libperl=libperl5_6_0.a
  Dynamic Linking:
    dlsrc=dl_dlopen.xs, dlext=dll, d_dlsymun=undef, ccdlflags=' -s'
    cccdlflags=' ', lddlflags=' -s -L/usr/local/lib'


Characteristics of this binary (from libperl): 
  Compile-time options: USE_LARGE_FILES
  Built under cygwin
  Compiled at Sep 11 2000 12:06:03
  @INC:
    /usr/local/lib/perl5/5.6.0/cygwin
    /usr/local/lib/perl5/5.6.0
    /usr/local/lib/perl5/site_perl/5.6.0/cygwin
    /usr/local/lib/perl5/site_perl/5.6.0
    /usr/local/lib/perl5/site_perl


Ciao
  Volker


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

- Raw text -