diff options
author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2004-10-15 14:09:54 +0000 |
---|---|---|
committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2004-10-15 14:09:54 +0000 |
commit | 2cbb2ee1d6d1dc9f375107de4b70573ece8a4e13 (patch) | |
tree | fa206f70aa68c2e54b6bb00ca6aef091e083e04e /perl.c | |
parent | c333cfe784a03678e3e071720a240ed3993ae09b (diff) | |
download | perl-2cbb2ee1d6d1dc9f375107de4b70573ece8a4e13.tar.gz |
Implement a new -dt command-line flag, to enable threads under the
debugger (bug #31666).
Subject: RE: [PATCH] debugger handles threads [perl #31666]
From: <richard.foley@ubs.com>
Date: Wed, 13 Oct 2004 13:01:18 +0200
Message-ID: <B374141B0A424D4F9CF143CC51B3ADD903FB9E12@NZURC900PEX1.ubsgs.ubsgroup.net>
Subject: Re: [PATCH] debugger handles threads [perl #31666]
From: Yitzchak Scott-Thoennes <sthoenna@efn.org>
Date: Wed, 13 Oct 2004 02:49:58 -0700
Message-ID: <20041013094957.GA17184@efn.org>
p4raw-id: //depot/perl@23372
Diffstat (limited to 'perl.c')
-rw-r--r-- | perl.c | 7 |
1 files changed, 7 insertions, 0 deletions
@@ -2504,6 +2504,13 @@ Perl_moreswitches(pTHX_ char *s) case 'd': forbid_setid("-d"); s++; + + /* -dt indicates to the debugger that threads will be used */ + if (*s == 't' && !isALNUM(s[1])) { + ++s; + my_setenv("PERL5DB_THREADED", "1"); + } + /* The following permits -d:Mod to accepts arguments following an = in the fashion that -MSome::Mod does. */ if (*s == ':' || *s == '=') { |