Mailing-List: contact cygwin-help AT sourceware DOT cygnus DOT com; run by ezmlm
List-Subscribe: <mailto:cygwin-subscribe AT sources DOT redhat DOT com>
List-Archive: <http://sources.redhat.com/ml/cygwin/>
List-Post: <mailto:cygwin AT sources DOT redhat DOT com>
List-Help: <mailto:cygwin-help AT sources DOT redhat DOT com>, <http://sources.redhat.com/ml/#faqs>
Sender: cygwin-owner AT sources DOT redhat DOT com
Delivered-To: mailing list cygwin AT sources DOT redhat DOT com
Message-ID: <3BC30158.241A92AE@rowman.com>
Date: Tue, 09 Oct 2001 09:53:28 -0400
From: John Peacock <jpeacock AT rowman DOT com>
MIME-Version: 1.0
To: cygwin AT cygwin DOT com
Subject: Re: Perl 5.7.2
References: <3BC2BF98 DOT 31800 DOT 2C8995E3 AT localhost>
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit

"Gerrit P. Haase" wrote:
> 
> O.k., I followed your example first:
> http://www.cygwin.com/ml/cygwin/2001-10/msg00067.html
> 
> I'm getting no core in gdb (with cygwin-1.3.3-2):

Under Win2K SP1?

> 
> $ gdb -nw ./miniperl
> GNU gdb 5.0 (20010428-1)
> Copyright 2001 Free Software Foundation, Inc.
> GDB is free software, covered by the GNU General Public License, and you are
> welcome to change it and/or distribute copies of it under certain conditions.
> Type "show copying" to see the conditions.
> There is absolutely no warranty for GDB.  Type "show warranty" for details.
> This GDB was configured as "i686-pc-cygwin"...
> (gdb) break Perl_safesysfree
> Breakpoint 1 at 0x44a726: file util.c, line 142.
> (gdb) run -e "\$ENV{'TEST'} = 1;"
> Starting program: /src/buildperl/./miniperl.exe -e "\$ENV{'TEST'} = 1;"
> Can't modify single ref constructor in scalar assignment at -e line 1, near "1;"
> Execution of -e aborted due to compilation errors.

Oops, when run inside gdb, you don't need to escaped the $; that is 
strictly when running on command line.  Try this instead:

	run -e "$ENV{'TEST'} = 1;"

> 
> Program exited with code 0377.
> (gdb) bt
> No stack.
> (gdb)
> 
> How is it possible to set PERL_DESTRUCT_LEVEL=2 in gdb?

It is just an environment variable that Perl checks when starting up;
either 

	export PERL_DESTRUCT_LEVEL=2
	gdb ./miniperl

or

	PERL_DESTRUCT_LEVEL=2 gdb ./miniperl

should have the same effect.

John

-- 
John Peacock
Director of Information Research and Technology
Rowman & Littlefield Publishing Group
4720 Boston Way
Lanham, MD 20706
301-459-3366 x.5010
fax 301-429-5747

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