summaryrefslogtreecommitdiff
path: root/perl.c
diff options
context:
space:
mode:
authorRafael Garcia-Suarez <rgarciasuarez@gmail.com>2004-10-15 14:09:54 +0000
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>2004-10-15 14:09:54 +0000
commit2cbb2ee1d6d1dc9f375107de4b70573ece8a4e13 (patch)
treefa206f70aa68c2e54b6bb00ca6aef091e083e04e /perl.c
parentc333cfe784a03678e3e071720a240ed3993ae09b (diff)
downloadperl-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.c7
1 files changed, 7 insertions, 0 deletions
diff --git a/perl.c b/perl.c
index 5321758f6a..dba06b29a1 100644
--- a/perl.c
+++ b/perl.c
@@ -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 == '=') {